В последовательности целых чисел определить третье положительное число и подсчитать количество цифр в нем — Pascal(Паскаль)

uses crt;
var  n,a,c,d,i,z:integer;
     f:boolean;
begin
write('введите количество чисел n=');
readln(n);
c:=0;
i:=0;
f:=false;
repeat
 i:=i+1;
 write('a[',i,']= ');
 readln(a);
 if a>0 then c:=c+1;
 if (c=3) and not f then
   begin
    d:=a;
    f:=true;
   end;
until i=n;
if c<3 then write('Нет трех положительных чисел')
else
 begin
  writeln('Третье положительное число=',d);
  z:=0;
  repeat
   a := a div 10;
   z := z + 1;
  until a=0;
  write(' количество цифр ' , Z);
 end;
readln;
END.