Строки столбцы в стринг гриде Delphi

[SEXTANT]

в матрице А поменять местами 1-ю и 2-ю строки, 3-ю и 4-ю строки, ..., 19 и 20 строки. Воспользоваться вспомогательным массивом x.





procedure TForm1.Button1Click(Sender: TObject);
const
n=6; m=6;
type
ar1=array [1..n,1..m] of integer;
ar2=array [1..n,1..m] of integer;
var
a:ar1;
x:ar2;
i,j:integer;
begin
stringgrid1.colcount:=n;
stringgrid1.colcount:=m;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(50);
stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
x[i,j]:=a[i+1,j+1];
a[i+1,j+1]:=a[i,j];
a[i,j]:=x[i,j];
stringgrid2.cells[j-1,i-1]:=inttostr(a[i,j]);
end;

Не получается помогите .