Программа в Pascal

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

Const n=5;

const m=4;

var i, j, Sch: integer;

a:array[1 ... n, 1 ... m] of integer;

Begin

Sch:=0;

For i:=1 to 5 do begin

For j:=1 to 4 do begin

a[i, j]:=random (73) - 23;

write (a[i, j], ' ') ;

If a[i, j]>0 then Sch:=Sch+1;

end;

end;

writeln;

writeln ('kollichestvo = ', Sch) ;

end.