Заменить максимальный элемент каждой строки матрицы на противоположный - Pascal (80574)

const nmax=10;
var a:array[1..nmax,1..2*nmax] of integer;
    m,n,i,j,jmx,k:byte;
    mx,x:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{пункт 1}
for i:=1 to n do
 begin
  jmx:=1;
  for j:=1 to m do
  if a[i,j]>a[i,jmx] then jmx:=j;
  a[i,jmx]:=-a[i,jmx];
 end;
writeln('Замена максимальных в строках на противположные');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
{пункт 2}
mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>mx then mx:=a[i,j];
writeln('Максимальный элемент матрицы=',mx);
j:=1;
while j<=m do
 begin
  i:=1;
  k:=0;
  while(i<=n)and(k=0) do
  if a[i,j]=mx then k:=1
  else inc(i);
  if k=1 then
   begin
    inc(m);
    if j=m-1 then
    for i:=1 to n do
    a[i,m]:=0
    else
     begin
      for k:=m downto j+2 do
      for i:=1 to n do
      a[i,k]:=a[i,k-1];
      for i:=1 to n do
      a[i,j+1]:=0;
     end;
    inc(j,2);
   end
  else inc(j);
 end;
writeln('Вставка столбцов из 0 за столбцами с максимальным');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
{пункт 3}
j:=1;
while j<=m do
 begin
  k:=0;
  i:=1;
  while(i<=n)and(k=0) do
  if a[i,j]<0 then k:=1
  else inc(i);
  if k=1 then
   begin
    if j<m then
     begin
      for k:=j to m-1 do
      for i:=1 to n do
      a[i,k]:=a[i,k+1];
     end;
    dec(m);
   end
  else inc(j);
 end;
writeln('Удаление столбцов с отрицательными элементами');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
{пункт 4}
for i:=1 to n do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,m];
  a[i,m]:=x;
 end;
writeln('Обмен первого и последнего столбцов');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.