Склавиатуры вводят строку, состоящую из латинских букв и цифр. написать программу, которая вычисляет сумму цифр, в этой строке, а также выводящую строку после исключения из неё этих цифр.для паскаль abc.

Var s,al:string;a,i:integer;
begin
read(s);
al:='1234567890';
i:=length(s);
while i>0 do begin
if poa(s[i],al)<>0 then begin a:=a+strtoint(s[i]);delete(s,i,1);end;
i:=i-1;
end;
writeln(Сумма: ',a);
writeln('Строка без цифр: ',s);
end.