Помогите решить задачу с использованием процедур

[Adelia]

Все,привет)Пожалуйста помогите разобраться с задачей.Задачу я решила,если можно так сказать,но у меня никак не получается убрать из цикла строчку: if r>0 then
writeln('Последовательность содержит число(a) кол-во разрядов которго(ых) равно сумме цифр,таких чисел : ',r) else
writeln('в последовательности не чисел,кол-во разрядов которых равно сумме их цифр ')

и сделать ее вне цикла,если ее убрать из цикла ,программа выдает ,что r=0.
вот условия самой задачи : Вводится последовательность целых чисел,0-конец последовательности.Определить ,содержит ли последовательность хотя бы одно число,сумма цифр в котором равна их количеству.При решении задачи создать процедуру которая возвращает сумму и кол-во цифр в числе.

Заранее спасибо за помощь)

Вот мое решение:

 
var b:integer;g,h,t,i,s:integer;r:byte;
    
procedure zifri(a:word;var r:byte;var n,k:integer);
var i:byte;s:integer;
  begin
  k:=a;n:=a;
  i:=0;s:=0;r:=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
writeln('Введите количество элементов в последовательности');
readln(t); 
writeln('Введите последоватьльность,оканчивающийся нулём');
for i:=1 to t do
begin
readln(b);
zifri(b,r,g,h);
if r>0 then
writeln('Последовательность содержит число(a) кол-во разрядов которго(ых) равно сумме цифр,таких чисел : ',r) else
writeln('в последовательности не чисел,кол-во разрядов которых равно сумме их цивфр :(  ');
end;end.

[Poma][a]

Не плохо было бы увидеть само задание..

И еще у Вас локальные и глобальные переменные перекрываются.. а это не хорошо..

[astecenko]

По поводу оформления кода вообще почитайте про индентацию, в таком виде как Вы предоставили Ваш код трудно читаем.

По поводу самого кода, не понятно зачем вы инициализируете каждый раз 0 переменную r в процедуре zifri, вынесите начальную инициализацию r в тело программы, ну и соответственно тогда можно будет вынести за цикл указанный Вами кусок кода с выводом. Кроме того так как r глобальная переменная нет необходимости повторно объявлять её в процедуре zifri (имею в виду var r:byte), просто используйте её.

Т.е. как-то так:

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
   writeln('Введите количество элементов в последовательности');
   readln(t); 
   writeln('Введите последоватьльность,оканчивающийся нулём');
   for i:=1 to t do
      begin
         readln(b);
         zifri(b,r,g,h);			
      end;
   if r>0 then
      writeln('Последовательность содержит число(a) кол-во разрядов которго(ых) равно сумме цифр,таких чисел : ',r)
    else
      writeln('в последовательности не чисел,кол-во разрядов которых равно сумме их цивфр :(  ');	
end.

[Adelia]

Спасибо за помощь и за советы)Теперь все получается)