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

Uses Crt;
const
m=10000;
var
a: array [1..m] of integer;
max,imax,n,i,c:integer;
begin
clrscr;
write('kol-vo sisel=');
read(n);
writeln('vvodite:');
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n do begin
write(a[i]:4);
end;
max:=0;
imax:=1;
while a[1]>0 do begin
max:=max+ a[1] mod 10;
a[1]:=a[1] div 10;
end;
for i:=1 to n do begin
c:=0;
while a[i]>0 do begin
c:=c+ a[i] mod 10;
a[i]:=a[i] div 10;
end;
if c> max then begin
max:=c;
imax:=i;
end;end;
writeln;
writeln('sislo s max summ sisel s #',imax,'=',max);
end.

var
  s: string;
  k, m, n, q, p, t, err: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  s := s + ' ';
  while length(s) > 0 do
    begin
      p := pos(' ', s);
      val(copy(s, 1, p - 1), n, err);
      delete(s, 1, p);
      q := n;
      n := abs(n);
      t := 0;
      repeat
        t := t + n mod 10;
        n := n div 10
      until n = 0;
      if t > m
        then begin
          m := t;
          k := q
        end
    end;
  write('Число с максимальной суммой цифр: ', k)
end.

var
  k, m, n, q, t: integer;
 
begin
  writeln('Введите строку:');
  while not eoln do
    begin
      read(n);
      q := n;
      n := abs(n);
      t := 0;
      repeat
        t := t + n mod 10;
        n := n div 10
      until n = 0;
      if t > m
        then begin
          m := t;
          k := q
        end
    end;
  readln;
  write('Число с максимальной суммой цифр: ', k)
end.

program example (input, output);