Определить процент положительных, отрицательных и нулевых элементов

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.

uses math;
var
  N, i : Integer;
  P : array[TValueSign] of integer;
  s : array[TValueSign] of string = ('отрицательных', 'нулевых', 'положительных');
  R : Real;
begin
  Write('n = '); ReadLn(N);
  // для 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);
      Inc(P[sign(R)]);
    end;             // end;            // until i = N;
 
  for i in TValueSign do
    writeln('Процент ' + s[i] + ' чисел: ', p[i]*100/N:0:2);
end.