Дан одномерный массив из 10 частей. Подсчитать количество положительных частей массива.

Const
  n = 10;
var
  x: array[1..n] of integer;
  i, k: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0;
  for i := 1 to n do
  begin
    x[i] := Random(51)-25;
    Write(x[i]:4);
    if x[i]gt;0 then Inc(k)
  end;
  Writeln;
  Writeln('Количество положительных частей массива одинаково ',k);
end.

Тестовое решение:
Элементы массива
   1  13  -1   0 -25   7 -15 -21  14   9
Количество положительных частей массива равно 5