Программа в Pascalопределить количество положительных элементов в двумерном массиве 5x4

var a:array[1 ... 100, 1 ... 100] of integer;

i, j, col:integer;

begin

writeln ('Заполните двухмерный массив');

for i:=1 to 5 do for j:=1 to 4 do readln (a[i, j]);

writeln ('Рассчитываем количество положительных элементов ... ');

for i:=1 to 5 do for j:=1 to 4 do if a[i, j]>0 then col:=col+1;

writeln ('Количество положительных элементов в массиве', sum);

end.