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

program Project1;
 
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;
    i1,m1,n1,i,j,k:byte;
    mx,a:integer;
    f:boolean;
begin
 
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]:=0;
 end;
writeln('Замена максимальных элементов строк на 0:');
Vyvod(b1,m,n);
write('Нажмите Enter');
readln;
 
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;
 
writeln('Исходная матрица:');
Vyvod(b,m,n);
for i:=1 to m do
 begin
  a:=b[i,1];
  b[i,1]:=b[i,n-1];
  b[i,n-1]:=a;
 end;
writeln('Обмен 1 и предпоследнего столбцов:');
Vyvod(b,m,n);
write('Программа завершена, нажмите Enter');
readln
end.