Помогите написать программу в Pascal, пожалуйста
Среди 8 положительных чисел найти такое, которое имеет наибольшую сумму цифр, используя функцию

var a,i,s,max,amax:integer;function sum(n:integer):integer;var s:integer;begins:=0;while n<>0 do begin s:=s+n mod 10; n:=n div 10; end;sum:=s;end;beginmax:=0;for i:=1 to 8 do begin write('a = '); readln(a); s:=sum(a); if s>max then begin max:=s; amax:=a; end; end;writeln('В числе ',amax,'  максимальная сумма цифр = ',max);end.Пример:a = 405a = 120a = 309a = 671a = 456a = 215a = 751a =321В числе 456 максимальная сумма цифр = 15