Двумерный массив. Замена элементов, удаление и обмен строк и столбцов

program z;
var i,j,max,min,y:integer;
a:array [1..5,1..6] of integer;
b:array [1..4] of integer;
begin
     writeln('Ââîä ýëåìåíòîâ ìàòðèöû');
     for i:=1 to 5 do
         for j:=1 to 6 do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     writeln('Âûâîä ýëåìåíòîâ ìàòðèöû');
     for i:=1 to 5 do
         begin
              for j:=1 to 6 do
                  write(a[i,j],' ');
              writeln;
         end;
     for i:=1 to 5 do
         begin
              max:=a[i,1];
              for j:=1 to 6 do
                  if a[i,j]>max
                     then
                         begin
                              max:=a[i,j];
                              y:=j;
                         end;
              a[i,y]:=-max;
         end;
     writeln('Ìàòðèöà ñ çàìåíîé ìàêñèìàëüíûõ ýëåìåíòîâ â ñòðîêàõ: ');
     for i:=1 to 5 do
         begin
              for j:=1 to 6 do
                  write(a[i,j],' ');
              writeln;
         end;
     for i:=3 to 4 do
         for j:=1 to 6 do
             a[i,j]:=a[i+1,j];
     writeln('Ìàòðèöà ñ óäàëåííûì ñðåäíèì ñòîëáöîì: ');
     for i:=1 to 4 do
         begin
              for j:=1 to 6 do
                  write(a[i,j],' ');
              writeln;
         end;
     for i:=1 to 4 do
          b[i]:=a[i,5];
     for i:=1 to 4 do
         a[i,5]:=a[i,6];
     for i:=1 to 4 do
         a[i,6]:=b[i];
     writeln('Ìàòðèöà ñ îáìåíîì ïðåäïîñëåäíåãî è ïîñëåäíåãî ñòîëáöîâ: ');
     for i:=1 to 4 do
         begin
              for j:=1 to 6 do
                  write(a[i,j],' ');
              writeln;
         end;
end.