Матрица: замена элементов, вставка и удаление строк / столбцов - Pascal ABC

Формулировка задачи:

дан двумерный массив размером 5*6, заполненный случайным образом 1. заменить максимальный элемент каждой строки на противоположный 2. вставить после столбцов с максимальными элементами столбец из нулей 3. удалить среднюю строку 4. поменять местами средние столбцы буду очень благодарна

const
x=5;
y=6;
 
var
a:array [1..10,1..10] of integer;
i,j,b:integer;
m:real;
 
begin
randomize;
For i:=1 to x do begin
for j:=1 to y do begin
a[i,j]:=random(5);
write(' ',a[i,j]:4);
end;
writeln;
end;
 
readln;
For i:=1 to 5 do
begin
m:=a[i,1];
 
For j:=1 to 6 do
if a[i,j]>m Then
begin
m:=a[i,j];
b:=j;
end;
 
a[i,b]:=-1*a[i,b];
end;

for i:=1 to 5 do begin
for j:=1 to 6 do
write(a[i,j]:4);
writeln;
end;
end.

вот попыталась сделать сама первую задачку, иногда идет, а иногда пишет, что ошибка, выход за границы диапазона изменения индекса

Решение задачи: «Матрица: замена элементов, вставка и удаление строк / столбцов»

Листинг программы

uses crt;
const m=5;
      n=6;
var a:array[1..m,1..n] of integer;
    i,j,x:integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  x:=a[i,j div 2];
  a[i,j div 2]:=a[i,j div 2+1];
  a[i,j div 2+1]:=x;
 end;
writeln('Обмен средних столбцов');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

Объяснение кода листинга программы

В этом коде создается матрица размером 5x6, заполняется случайными числами от 0 до 99, затем происходит замена элементов в средней колонке на значения из следующей колонки, в результате чего происходит обмен средними столбцами. Вот список действий:

Создание матрицы и инициализация переменных.
Заполнение матрицы случайными числами.
Обмен средними столбцами.
Вывод результата.