Дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр

Var   digits: set of '0'..'9';   s: string;   i, p, d, err: integer; begin   digits : = ['0'..'9'];   write('введите строку: '); readln(s);   p : = 0;   for i : = 1 to length(s) do       if (s[i] in digits) then       begin val(s[i], d, err); p : = p + d end;   writeln('сумма цифр равна ', p) end. тестовое решение: введите строку: сегодня 17 декабря 2014г. находим сумму 7 цифр их этой строки. сумма цифр равна 22

var max,min,buf,n1,n2,n3: integer;

begin

readln(n1);

readln(n2);

readln(n3);

if n1> n2 and n1> n3

then

 

begin

max: =n1;

if n2> n3

then 

begin

buf: =n2;

min: =n3;

end;

else 

begin

buf: =n3

end;

end;

else 

 

 

if n2> n1 and n2> n3 then

begin

max: =n2;

if n1> n3 

then

begin

buf: =n1;

min: =n3;

end;

else 

begin

buf: =n3;

end;

end;

else

 

 

begin

max: =n3;

if n1> n2 

then

 

begin

buf: =n1;

min: =n2;

end;

 

else

 

begin 

buf: =n2;

min: =n1;

end;

 

end;

 

end.

 

var a: array[1..1000,1..1000] of integer; i,j,n,m,min,k,k1,str: integer; beginwriteln('vvedite razmernost massiva nxm'); readln(n); readln(m); for i: = 1 to n dobeginfor j: = 1 to m do beginwrite('a[',i,',',j,']: ='); read(a[i,j]); end; end; min: =a[1,1]; for i: =1 to n dofor j: =1 to m dobeginif a[i,j]< min thenbeginmin: =a[i,j]; end; end; k: =0; for i: =1 to n do begin for j: =1 to n do begin if a[i,j]=min then k1: =k1+1; end; if k1> k then begin k: =k1; str: =i; end; end; writeln('stroka s max kolich min elementov: ',str); for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 10); writeln;

end; end.