Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой.

{Дан двухмерный массив из четного числа строк. Поменять местами первую строку со второй, третью - с четвертой.}
 
var
  a: array [1..100] of string;
  i: integer;
  n: integer;
  buf: string;
 
begin
  writeln('Введите количество строк:');
  readln(n);
  if (n mod 2 <> 0) then 
  begin
    writeln('Число строк не должно быть нечётным , работы программы будет остановлена!!!');
    exit;   
  end;
  writeln('Введите строки:');
  for i := 1 to n do readln(a[i]);
  for i := 1 to n do
    if (i mod 2 <> 0) then
    begin
      buf := a[i];
      a[i] := a[i + 1];
      a[i + 1] := buf;      
    end;
  writeln('После преобразования:');
  for i := 1 to n do writeln(a[i]);
end.

uses crt;
 
 
var a: array [1..100,1..100] of integer;
    i,j,n,s: integer;
    
    procedure swap(var x,y:integer);
var t:integer;
       begin
       t:=x;
       x:=y;
       y:=t;
       end;
begin
Write('Ââåäèòå êîë-âî ñòðîê: ');readln(s);
Write('Ââåäèòå êîë-âî ñòîëáöîâ: ');readln(n);
If (not odd(s)) and (s>0) then
begin
Writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to s do
   begin;
   for j:=1 to n do
        begin
        randomize;
        a[i,j]:=random(9)+1;
        write(a[i,j]:3);
        end;
   writeln;
   end;
 
 
   for j:=1 to n do
        begin
        swap(a[1,j],a[2,j]);
        swap(a[3,j],a[4,j])
        end;
 
Writeln;
Writeln('Íîâûé ìàññèâ: ');
   for i:=1 to s do
   begin;
   for j:=1 to n do
        begin
        write(a[i,j]:3);
        end;
    writeln;
   end;
end
else writeln('Êîë-âî ñòðîê íå÷åòíîå ');
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы  до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
if odd(n) then write('Количество строк нечетное, матрица не меняется')
else
 begin
  i:=1;
  while i<n do
   begin
    for j:=1 to n do
     begin
      x:=a[i,j];
      a[i,j]:=a[i+1,j];
      a[i+1,j]:=x;
     end;
    i:=i+2;
   end;
  writeln('Обмен соседних строк');
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.