[Delphi]: Нужно поменять 1 и 2 Строки 3 и 4 и тд, кол-во строк всегда Четное

[SEXTANT]

В чем ошибка, кто может помочь?

procedure TForm1.Button1Click(Sender: TObject);
const
n=4;
var
a,x:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
  for j:=1 to n do
  begin
  a[i,j]:=random(50);
  stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);
  end;
  for i:=0 to n-1 do
  for j:=1 to n do
  begin
  x[i,j]:=a[i,j];
  a[i,j]:=a[2*i+1,j];
  a[2*i+1,j]:=x[i,j];
  stringgrid2.cells[j-1,i]:=inttostr(a[i,j]);
  end;

end;

[SEXTANT]

procedure TForm1.Button1Click(Sender: TObject); 
const 
n=4; 
var 
a,x:array[1..n,1..n] of integer; 
i,j:integer; 
begin 
randomize; 
for i:=1 to n do 
for j:=1 to n 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 n do 
begin 
x[i,j]:=a[i,j]; 
a[i,j]:=a[i+4-n,j]; 
a[i+4-n,j]:=x[i,j]; 
stringgrid2.cells[j-1,i]:=inttostr(a[i,j]); 
end; 

end;

[evg_m]

var x: integer;// для замены нам не нужен целый массив все равно мы зараз меняем ровно одно значение.
for i:=1 to (n div 2) do  // меняем мы сразу ПО ДВЕ строки  (и сколько же будет таких обменов если всех строк n ? )
/// в обмене УЧАСТВУЮТ 2*i -1 , 2*i;   (i=1 { 2*1-1(=1)  2*1(=2) } i=2 {3,4} ... i=(n div 2) { (n div 2)*2 -1 =n -1
  for j:=1 to n do begin 
   x:=a[2*i -1, j];
   a[2*i -1, j]:=a[2*i, j];
// теперь можем и вывести ТОЛЬКО что заполненную
   a[2*i, j]:=x;
// и ЕЩЕ РАЗ можем вывести другую ТОЛЬКО что заполненную
 end;

[SEXTANT]

Спасибо