Ввести натуральное число n (не больше 2147483647). определить сколько в нем знаков, вычислить сумму цифр числа и определить старшую цифру числа

Program enot;
Var i,n,k,a,s,m:integer;
begin
read(n);
k:=0;
s:=0;
while n>0 do
begin
i:=a;
a:= n mod 10;
k:=k+1;
s:=s+a;
n:=n div 10;
if m<i then m:=i;
end;
write('summa = ',s,'; znakov = ',k,'; starsh = ',m);
end.