ПОМОГИТЕ! ПАСКАЛЬ!
Создать массив интервалом 6 на 6 случайным образом интервал(-50;50].
1.Найдите количество отрицательных элементов второго столбца.
2.Заменить все положительные элементы на минимальные.

const n = 6;m = 6;

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

i,j,z,k:integer;

begin

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=Random(100)-49;

if (a[i,j]<0) and (j=2) then k:=k+1;

write(a[i,j]:4)

end;

writeln;

end;

writeln ('Количество отрицательных элементов второго столбца: ',k);

z:=a[1,1];

for i:= 1 to n do

for j:=1 to m do

if a[i,j]<z then z:=a[i,j];

for i:= 1 to n do

begin

for j:=1 to m do

begin

if a[i,j]>0 then a[i,j]:=z;

write(a[i,j]:4)

end;

writeln;

end

end.

program n1;

var

A: array [1..6,1..6] of integer;

i, j, k, min: integer;

begin

for i := 1 to 6 do begin

for j := 1 to 6 do begin

A[i, j]:= Random(101)-50;

write (A [i,j]:4); end;

writeln; end;

k := 0;

for i := 1 to 6 do

if A[i, 2]<0 then k := k+1;

min := A[1, 1];

for i := 1 to 6 do begin

for j := 1 to 6 do

if A[i, j]<min then min := A[i, j]; end;

for i := 1 to 6 do

for j := 1 to 6 do

if A[i, j]>0 then A[i, j] := min;

writeln ('k=', k);

writeln;

for i := 1 to 6 do begin

for j := 1 to 6 do begin

write (A [i,j]:4); end;

writeln; end;

END.