Программа в 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.