обработка данных в многомерных массивах(Delphi)

[Namiko]

здравствуйте помогите, пожалуйста, соединить два фрагмента задачи, а то никак не могу сообразить как второй фрагмент присоединить к первому, чтоб работала программа.

задание: дан двумерный массив размером m*n, заполненный случайным образом. заменить отрицательный элемент каждого столбца нулем.


1)procedure TForm2.Button1Click(Sender: TObject);
var
i,j,n,m:Integer;
a: array [0..30,0..30] of integer;
begin
Randomize;
n:=Strtoint(edit1.Text);
m:=Strtoint(edit2.Text);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=random(200)-100;
Stringgrid1.rowcount:=n+1;
stringgrid1.colcount:=m+1;
with stringgrid1 do
begin
i:=0;
for j:=1 to rowcount do
cells[i,j]:=inttostr(j);
j:=0;
for i:=1 to colcount do
cells[i,j]:=inttostr(i);
end;
with stringgrid1 do
for i:=1 to n do
for j:=1 to m do
cells[j,i]:=inttostr(a[i-1,j-1]);
end;

2)for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<0 then
a[i,j]:=0;