Строки в Двухмерном массиве Pascal

[program123]

Подскажите как поменять в данном массиве 1 и 2 строку, заранее благодарен

[Evgeniy26]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, j, Col, Row, Count: Integer;
  Mas: array of array of String;
  MasPod: array of String;
begin
  Write('Enter count row: ');
  Read(Row);
  Write('Enter count col: ');
  Read(Col);
  if (Col > 0) and (Row > 0) then
  begin
    SetLength(Mas, Row, Col);
    SetLength(MasPod, Col);
    for i := 0 to Row - 1 do
      for j := 0 to Col - 1 do
      begin
        Write('Mas[' + IntToStr(i) + ', ' + IntToStr(j) + '] =');
        Readln(Mas[i, j]);
      end;
      {Заменяю}
      for i := 0 to Col - 1 do
      begin
        MasPod[i] := Mas[0, i];
        Mas[0, i] := Mas[1, i];
        Mas[1, i] := MasPod[i];
      end;
    Readln;
  end;

end.

[__STDC__]

for i:=1 to n do begin
   tmp := x[1,i];
   x[1,i] := x[2,i];
   x[2,i] := tmp;
end;

как-то так

[Evgeniy26]

Затупил... Массив объявил.