Определить, содержит ли последовательность хотя бы одно число, сумма цифр в котором равна их количеству

Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;
 
Function GetNumCifr(A : Longint) : Integer;
Begin
  If A<=0 then GetNumCifr:=0 else GetNumCifr:=1+GetNumCifr(A div 10);
End;

 { TMyApplication }
procedure sum_count(a:integer;var s,k:integer);
var b:integer;
begin
  b:=abs(a);
  s:=0;
  k:=0;
  while b>0 do
   begin
     s:=s+b mod 10;
     k:=k+1;
     b:=b div 10;
   end;
end;
 
procedure TMyApplication.DoRun;
var
  f:boolean;
  a,s,k:integer;
begin
  writeln('Введите целые числа, конец ввода 0');
  f:=false;
  repeat
    readln(a);
    sum_count(a,s,k);
    if s=k then f:=true
  until a=0;
  if f then write('Есть числа с равной суммой и количеством цифр')
  else  write('Нет чисел с равной суммой и количеством цифр');
  readln;
  Terminate;
end;

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
procedure sum_count(a:integer;var s,k:integer);
var b:integer;
begin
  b:=abs(a);
  s:=0;
  k:=0;
  while b>0 do
   begin
     s:=s+b mod 10;
     k:=k+1;
     b:=b div 10;
   end;
end;
var
  f:boolean;
  a,s,k:integer;
 
begin
writeln('Введите целые числа, конец ввода 0');
f:=false;
repeat
 readln(a);
 sum_count(a,s,k);
 if s=k then f:=true
until a=0;
if f then write('Есть числа с равными суммой цифр и их количеством')
else  write('Нет чисел с равными суммой цифр и их количеством');
readln;
end.