Поменять местами 3-ю и 4-ую строки массива

[танечка155]

Не знаю, я наверное совсем не разбираюсь в Паскале. Сижу и даже не могу начать.
Очень нужна ваша помощь.

Пусть B - двумерный массив целых чисел размерности N x N. Ввести его. Поменять местами:

а) Максимальный из отрицательных элементов и минимальный из
четных элементов;
б) 3-ю и 4-ую строки массива;

в) Столбцы с максимальным и минимальным модулем суммы
элементов.

[alex_fcsm]

uses crt;
const b=5;

var a:array[1..b,1..b] of integer;
    i,j:integer;

procedure MaxMin;
var i,j,max,x,y,min,l,r,temp:integer;
begin
 max:=-100;x:=y;y:=0;

 for i:=1 to b do
  for j:=1 to b do
   if a[i,j]<0 then  if a[i,j]>max then  begin
                       max:=a[i,j];x:=i;y:=j;
                     end;
 min:=100;l:=0;r:=0;
 for i:=1 to b do
  for j:=1 to b do
   if a[i,j] mod 2=0 then  if a[i,j]<min then  begin
                       min:=a[i,j];l:=i;r:=j;
                     end;
temp:=a[x,y];
a[x,y]:=a[l,r];
a[l,r]:=temp;
writeln;
for i:=1 to b do
 begin
 writeln;
 for j:=1 to b do
   write(a[i,j],' ');
  end;
end;

procedure Chstr;
var j,temp:integer;
begin
for j:=1 to b do
 begin
  temp:=a[3,j];
  a[3,j]:=a[4,j];
  a[4,j]:=temp;
 end;
for i:=1 to b do
 begin
 writeln;
 for j:=1 to b do
   write(a[i,j],' ');
  end;
end;

procedure Modul;
var x:array[1..b] of integer;
    i,j,sum,max,min,l,r:integer;
begin
 for i:=1 to b do
  begin
   sum:=0;
   for j:=1 to b do
    sum:=sum+a[j,i];
   x[i]:=sum;
  end;
  max:=abs(x[1]);
  min:=abs(x[1]);
  l:=1;r:=1;
  for i:=2 to b do
   if abs(x[i])>max then begin
                          max:=abs(x[i]);
                          l:=i;
                         end
      else if abs(x[i])<min then begin
                                 min:=abs(x[i]);
                                 r:=i;
                                 end;
writeln;
writeln('--------');
  for i:=1 to b do
   begin
    write(a[i,l],' ');
    write(a[i,r],' ');
    writeln;
   end;
end;

begin
 clrscr;
 randomize;
 for i:=1 to b do
 begin
 writeln;
  for j:=1 to b do
  begin
   a[i,j]:=random(10)-5;
   write(a[i,j],' ');
  end;
 end;
MaxMIn;
CHStr;
Modul;


end.

[танечка155]

Спасибочки большое, очень помогли

[сано]

помогите !! нужно поменять местами в массиве 4 на 4 четные и нечетные строчки и вывести на экран