Двумерный массив в delphi

[Sketch_45]

Дан двумерный массив размером n*m, заполненный случайными числами из промежутка [-25,25]1) Заменить отрицательный элемент каждого столбца на положительный 2) Поменять местами второй и последний столбцы

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
SetLength(a, n,m);
  stringgrid1.RowCount:=n+1;
  stringgrid1.ColCount:=m+1;
for i:=0 to n-1 do
 for i1:=0 to m-1 do
 begin
  randomize;
  a[i,i1]:=RandomRange(-35, 35);
  StringGrid1.Cells[i1+1,i+1]:=IntToStr(a[i,i1]);
end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.