Программа нахождения количества и суммы цифр целого положительного числа, используя для этого процедуру Sum

var K,C,S,l:integer;
procedure sum(i:byte;c:byte;s:integer );
begin
c:=0;
for i:=1 to l do//nahozhdenie kol-va simvolov v chisle//
inc(c);
repeat
s:=s mod 10;//mi poluchaem ostatok i sohranyaem ego v 's'//
s:=s+1
until (s mod 10)<1
end;
begin
readln(k);//schitivaem stroku s okna vvoda//
l:=length(k);//nahozhdenie dliny stroki//
sum(k);//zapuskaem proceduru//
write(c,' ',s);//vivodim znachenia//
end.

l := length(k.ToString());

var
  k: integer;//Ввод, после сумма
  s: integer;//Кол-во цифр
  
procedure sum(var s, c:integer);
var
  t: integer = s;
begin
  c:=s.ToString.Length;
  s:=0;
  for var i:=1 to c do
  begin
    s:=s+(t mod Round(Power(10,i+1))) div Round(Power(10,i));
  end;
end;
 
begin
  readln(k);//вводим строку
  sum(k, s);
  write(k,' ',s);//выводим значения: первое число - сумма, второе число - кол-во цифр
end.

procedure sum(ch:string;var c,s:integer);
begin
c:=length(ch);
s:=0;
for var i:=1 to length(ch) do
s:=s+strtoint(ch[i]);
end;
var k:string;
    c,s:integer;
begin
writeln('Введите натуральное число');
readln(k);
sum(k,c,s);//zapuskaem proceduru//
write('Количество цифр=',c,' их сумма=',s);//vivodim znachenia//
end.

procedure sum(ch:integer;var c,s:integer);
begin
c:=0;
s:=0;
if ch=0 then
 begin
  c:=1;
  s:=0;
 end
else
repeat
inc(c);
s:=s+ch mod 10;
ch:=ch div 10;
until ch=0; 
end;
var k,c,s:integer;
begin
writeln('Введите натуральное число');
readln(k);
sum(k,c,s);//zapuskaem proceduru//
write('Количество цифр=',c,' их сумма=',s);//vivodim znachenia//
end.

type
  int = integer;
  
procedure CetCountSum(x: int; var outCount, outSum: int);
begin
  while x > 0 do
  begin
    Inc(outSum, x mod 10);
    Inc(outCount);
    x := x div 10;
  end;
end;
 
var
  count, sum: int;
  
begin
  CetCountSum(ReadlnInteger('X:'), count, sum);
  Println(count, sum);
end.

var k,C,S,l:integer;
procedure sum(i:byte);
begin
c:=0;
for i:=1 to l do//nahozhdenie kol-va simvolov v chisle//
inc(c);
repeat
s:=k mod 10;//mi poluchaem ostatok i sohranyaem ego v 's'//
s:=k+1
until (s mod 10)<1
end;
 
 
 
begin
repeat
l:=k div 10;
l:=l+1;
until (k div 10)<1;
readln(k);//schitivaem stroku s okna vvoda//
sum(k);//zapuskaem proceduru//
writeln(C,' ',S);//vivodim znachenia//
end.

  repeat
    l := k div 10;
    l := l + 1;
  until (k div 10) < 1;