Делфи - массив. Почему не работает?

[Naposaram]

Всем привет, ну подскажите, есть задачка:
"Для двумерного массива размерностью 2х4 поменять местами первый и последний столбцы."

var
  Form1: TForm1;
  mas: array [1..4, 1..2] of Integer;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    mas[i,j]:=Strtoint (Stringgrid1.Cells[i,j]);

    Stringgrid1.Cells[1,1]:=IntToStr(mas[4,1]);
    Stringgrid1.Cells[1,2]:=IntToStr(mas[4,2]);
    Stringgrid1.Cells[4,1]:=IntToStr(mas[1,1]);
    Stringgrid1.Cells[4,2]:=IntToStr(mas[1,2]);

end;

Почему таким образом не меняет местами элементы? только почему то элементу (2,2) ноль присваивает!? Как сделать по другому?

[ViktorXP]

mas[i,j]:=Strtoint (Stringgrid1.Cells[i,j]);

а что эта строка должна сделать?

[Hacker19_90]

ну а так

for i := 1 to 4 do
begin
    mas[i,1] := mas[i,1] xor mas[i,2];
    mas[i,2] := mas[i,1] xor mas[i,2];
    mas[i,1] := mas[i,1] xor mas[i,2];
end;
for i := 1 to 4 do
    for j := 1 to 2 do
        Stringgrid1.Cells[j,i] := IntToStr(mas[i,j]);