Заменить максимальный элемент каждой строки матрицы на число 7

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