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

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]lt;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]lt;min then min := A[i, j]; end;

for i := 1 to 6 do

for j := 1 to 6 do

if A[i, j]gt;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.

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]lt;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]lt;z then z:=a[i,j];

for i:= 1 to n do

begin

for j:=1 to m do

begin

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

write(a[i,j]:4)

end;

writeln;

end

end.