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

Var i, x, k, s:integer;

function Sum (x:integer) : integer;

var

t:string;

i:integer;

begin

s:=0;

t:=IntToStr (x) ;

for i:=1 to length (t) do s:=s+StrToInt (t[i]) ;

result:=s

end;

function Kol (x:integer) : integer;

var t:string;

begin

t:=IntToStr (x) ;

result:=length (t)

end;

begin

for i:=1 to 5 do

begin

write ('Введите число ', i,': ') ;

readln (x) ;

k:=Kol (x) ;

s:=Sum (x) ;

writeln ('Количество цифр ', k,'; сумма цифр ', s)

end

end.