Произвести действия с элементами двумерного массива по условию - Turbo Pascal

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

сформировать двумерный массив в котором 5 строк и 8 столбцов с помощью датчиика случайных чисел в диапозоне [0;30] и вывести его на экран А)сформировать второй массив полученный транспортированием к 1 Б)поменять местами средние столбцы со вторым и предпоследним Помогите пожалуйста

Решение задачи: «Произвести действия с элементами двумерного массива по условию»

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

uses crt;
const m=5;
      n=8;
var a,b:array[1..n,1..n] of byte;
    i,j,x:byte;
begin
clrscr;
randomize;
writeln('Исходный массив А');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(31);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Транспонированный массив');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=a[j,i];
    write(b[i,j]:3);
   end;
  writeln;
 end;
writeln('Обмен столбцов в исходном массиве');
for i:=1 to m do
 begin
  x:=a[i,2];
  a[i,2]:=a[i,n div 2];
  a[i,n div 2]:=x;
  x:=a[i,n-1];
  a[i,n-1]:=a[i,n div 2+1];
  a[i,n div 2+1]:=x;
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln;
end.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Далее, объявляются две константы m и n, которые определяют количество строк и столбцов в двумерном массиве.
Затем, объявляются переменные a, b, i, j и x, которые будут использоваться для работы с массивом.
Строка clrscr очищает экран перед началом работы с массивом.
В цикле for i:=1 до m do выполняется заполнение исходного массива случайными значениями от 0 до 31.
После этого, выводится сообщение 'Исходный массив А'.
Во втором цикле for j:=1 до n do выполняется обмен значений столбцов в исходном массиве.
Затем, выводится сообщение 'Транспонированный массив'.
В третьем цикле for i:=1 до m do выполняется обмен значений строк в транспонированном массиве.
После этого, выводится сообщение 'Обмен столбцов в исходном массиве'.
Код завершается строкой readln, которая ожидает ввода пользователя.