Необходимо вычислить процентное количество положительных элементов заданного массива. Вещественный массив – А(25) — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 25] of integer; { инициализация переменных }
  i, count: integer;
  proc: real;

begin
  for i := 1 to 25 do
    A[i] := 0 + random(25);

  writeln('Vot ishodnyi massiv: ');
  for i := 1 to 25 do
    write(A[i]:8); { вывод массива на экран }
  writeln;
  writeln;

  count := 0;
  for i := 1 to 10 do
    if A[i] > 0 then
      inc(count);

  proc := (count * 100) / 25;

  writeln('Procent polozhitelinyh elementov: ', proc:0:2, ' %');

  readln;

end.