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

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]>0 then Inc(k)  end;  Writeln;  Writeln('Количество положительных элементов массива равно ',k);end.Тестовое решение:Элементы массива   1  13  -1   0 -25   7 -15 -21  14   9Количество положительных элементов массива равно 5