Нужно воплотить процедуру Sum(K,C,S), обретающую количество C цифр целого

Алгоритм решения

Для каждого из 5 чисел:

Пока число больше нуля, увеличиваем счётчик количества цифр на 1 и добавляем заключительную цифру к счётчику суммы.

Нужно учитывать, что для K=0 количество цифр C=1.

Код (Pascal)

var

 x, i, anc, ans: integer;

procedure Sum(k: integer; var c, s: integer);

begin

 c := 0;

 if k = 0 then c := 1;

 s := 0;

 while (k gt; 0) do

 begin

   c := c + 1;

   s := s + (k mod 10);

   k := k div 10;

 end

end;

begin

 for i := 1 to 5 do

 begin

   read(x);

   Sum(x, anc, ans);

   writeln(anc, ' ', ans);

 end;

end.

-------------------------------------------------

Файл решения прикреплён.