Вчетырёхзначном числе определить сколько в нём нулевых цифр, использовать паскаль

Var
  N, i, P, O, Z : Integer;
  R : Real;
begin
  Write('n = '); ReadLn(N);
  P := 0; O := 0; Z := 0;
  // для for         // для while       // для repeat
  for i := 1 to N do // i := 0;         // i := 0;
                     // while i < N do  // repeat
    begin            // begin           //   Inc(i)
                     //   Inc(i);
      Write(i, ' число = '); ReadLn(R);
      case sign(R) of
        +1 : Inc(P);
        -1 : Inc(O);
         0 : Inc(Z);
       end;
    end;             // end;            // until i = N;
  WriteLn('Процент положительных чисел: ', P*100/N);
  WriteLn('Процент отрицательных чисел: ', O*100/N);
  WriteLn('      Процент нулевых чисел: ', Z*100/N);
end.

тут даже больше