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

procedure TForm1.Button1Click(Sender: TObject);
var M, X:integer;
  kol_p, N:word;
  p, y:string;
 
  var
   b:integer;
   g,h,t,i,s:integer;
   r:byte;
procedure zifri(a:word; var n,k:integer);
   var
      i:byte;
      s:integer;
   begin
      k:= a;
      n:= a;
      i:= 0;
      s:= 0;
      while k<>0 do
         begin
            n:= k mod 10;
            i:= i+1;
            k:= k div 10;
            s:= s+n;
         end;
      writeln('Разрядность числа  ',i);
      writeln('Сумма цифра в числе  ',s);
      if i = s then
         r:=r+1;
   end;
  begin
    y:=InputBox('Ввод','введите количество элементов в последовательности','0');
    M:=StrToInt(y);
    y:=InputBox('Ввод элементов последовательности','Введите число','0');
    X:=StrToInt(y);         kol_p:=0;
    for i:=2 to M do begin
    y:=InputBox('Ввод элементов последовательности','Введите число','0');
    X:=StrToInt(y);
 
        if x>0 then
        kol_p:=kol_p+1;  end;
        if kol_p=0 then
    MessageDlg('Последовательность содержит число(a), кол-во разрядов которго(ых) равно сумме цифр,таких чисел'
    , mtInformation , [mbOk] ,0)
     else     MessageDlg('в последовательности нет чисел, кол-во разрядов которых равно сумме их цифр'
                                      , mtInformation , [mbOk] ,0);
 
    end; end.

procedure TForm1.Button1Click(Sender: TObject);
var
  M, X: integer;
  kol_p: word;
  y: string;
 
var
  i: integer;
 
  procedure zifri(a: word; var r: word);
  var
    i: byte;
    s, n, k: integer;
  begin
    k := a;
    n := a;
    i := 0;
    s := 0;
    while k <> 0 do
    begin
      n := k mod 10;
      i := i + 1;
      k := k div 10;
      s := s + n;
    end;
    if i = s then
      r := r + 1;
  end;
 
begin
  y := InputBox('Ввод', 'введите количество элементов в последовательности', '0');
  M := StrToInt(y);
  kol_p := 0;
  for i := 1 to M do
  begin
    y := InputBox('Ввод элементов последовательности', 'Введите число', '0');
    X := StrToInt(y);
    zifri(x, kol_p);
 
  end;
  if kol_p > 0 then
    MessageDlg('Последовательность содержит число(a), кол-во разрядов которго(ых) равно сумме цифр,таких чисел'
      , mtInformation, [mbOK], 0)
  else
    MessageDlg('в последовательности нет чисел, кол-во разрядов которых равно сумме их цифр'
      , mtInformation, [mbOK], 0);
 
end;