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

var i,x,k,s:integer;function Sum(x:integer):integer;var   t:string;   i:integer;begins:=0;t:=IntToStr(x);for i:=1 to length(t) do s:=s+StrToInt(t[i]);result:=send;function Kol(x:integer):integer;var t:string;begint:=IntToStr(x);result:=length(t)end;beginfor i:=1 to 5 do  begin  write('Введите число ',i,': ');    readln(x);    k:=Kol(x);    s:=Sum(x);    writeln('Количество цифр ',k,'; сумма цифр ',s)  endend.