Поменять первый и последний столбцы матрицы - Turbo Pascal

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

дана целочисленная матрица размера 5x6.Поменять первый и последний из столбцов

Решение задачи: «Поменять первый и последний столбцы матрицы»

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

var a:array[1..5,1..6] of integer; i,j,v:integer;
 
begin
 for i:=1 to 5 do begin
  for i:=1 to 6 do begin
    Write('Введите элемент массива [',i,',',j,']   '); Readln(a[i,j]);
  end; writeln;
 end; writeln;
 for i:=1 to 5 do begin v:=a[i,1]; a[i,1]:=a[i,6]; a[i,6]:=v; end;
 for i:=1 to 5 do begin
  for i:=1 to 6 do begin
    Write(a[i,j]:5);
  end; writeln;
 end; writeln;
 Readln;
end.

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

Этот код написан на Turbo Pascal и выполняет следующие действия:

Создает массив a размером 5x6, инициализирует его значениями, которые пользователь должен ввести.
Выводит значения каждого элемента массива на экран.
Затем код меняет местами первый и шестой столбцы массива.
Выводит измененный массив на экран.
Код завершается, ожидая ввода пользователя.