В одномерном массиве подсчитать количество положительных элементов - Pascal

Формулировка задачи:

В одномерном массиве К (20) подсчитать количество положительных, елементив.Вивесты на экран исходный массив по 5 элементов в строке и найденные величины

Решение задачи: «В одномерном массиве подсчитать количество положительных элементов»

Листинг программы

const n=20;
var
  k:array[1..n] of integer;
  i,j,s:integer;
begin
  randomize;
  for i:=1 to n do begin
      k[i]:=random(100)-50;
      write(k[i]:5);
      if i mod 5=0 then writeln;
      if k[i]>=0 then s:=s+1;
     end;
     writeln;
     writeln('Положительных элементов:',s);
end.

Объяснение кода листинга программы

Объявляется константа n и переменные k, i, j, s типа integer.
В цикле for перебираются все элементы массива k.
Каждый элемент массива k инициализируется случайным числом в диапазоне от -50 до 50.
Выводится значение каждого элемента массива k с шагом 5 элементов на строку.
Если значение элемента массива k больше или равно нулю, то к переменной s прибавляется единица.
После завершения цикла выводится количество положительных элементов массива k.