В последовательности из 10-ти натуральных чисел определить порядковый номер первого из чисел с наибольшей суммой цифр — Pascal(Паскаль)

var
  sum:array[1..10] of integer;
  k,a,i,max:integer;
begin
  for i := 1 to 10 do
    begin
      read(a);
      while (a<>0) do
      begin
        sum[i] := sum[i] + a mod 10;
        a:=a div 10;
      end;
    end;
  max:=0;
  k:=0;
  for i := 1 to 10 do
    if (max<sum[i])
    then
      begin
        max:=sum[i];
        k:=i;
      end;
writeln('Номер элемента с наибольшей суммой цифр = ',k);
readln;
readln
end.