Двумерный массив: замена, вставка, удаление и обмен строк / столбцов

uses crt;
type mtr=array[1..5,1..18] of integer;
procedure vvod(var a:mtr;var m,n:integer);
var i,j:integer;
begin
m:=5;
n:=8;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
end;
procedure vyvod(a:mtr;m,n:integer);
var i,j:integer;
begin
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end;
var a,a1:mtr;
    m,m1,n,n1,i,j,k,mx:integer;
    f:boolean;
begin
randomize;
vvod(a,m,n);
vyvod(a,m,n);
//2.вставка столбца
a1:=a;
n1:=n;
mx:=a1[1,1];
for i:=1 to m do
for j:=1 to n do
if a1[i,j]>mx then mx:=a1[i,j];
writeln('Максимальный элемент=',mx);
j:=1;
while j<=n1 do
 begin
  f:=false;
  i:=1;
  while(i<=m)and not f do
  if a1[i,j]=mx then f:=true
  else i:=i+1;
  if f then
   begin
    for i:=1 to m do
    for k:=n1+1 downto j+2 do
    a1[i,k]:=a1[i,k-1];
    for i:=1 to m do
    a1[i,j+1]:=1;
    n1:=n1+1;
    j:=j+2;
   end
  else j:=j+1
 end;
writeln('Вставка столбцов из 1 после столбцов с максимальным элеметом');
for i:=1 to m do
 begin
  for j:=1 to n1 do
  write(a1[i,j]:4);
  writeln
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
//3.Удаление средней строки
vyvod(a,m,n);
a1:=a;
m1:=m;
for i:=m1 div 2+1 to m1-1 do
for j:=1 to n do
a1[i,j]:=a1[i+1,j];
m1:=m1-1;
writeln('Удаление средней строки:');
for i:=1 to m1 do
 begin
  for j:=1 to n do
  write(a1[i,j]:4);
  writeln
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
//Обмен средних столбцов
vyvod(a,m,n);
for i:=1 to m do
 begin
  k:=a[i,j div 2];
  a[i,j div 2]:=a[i,j div 2+1];
  a[i,j div 2+1]:=k;
 end;
writeln('Обмен средних столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Программа завершена...')
end.