Вывести в строку элементы второго столбца матрицы - Turbo Pascal

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

Для двумерного массива P(3*6),который состоит с элементов действительного типа. вывести на экран элементы 2 столбика в рядок

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

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

const n = 3; m = 6;
var a: array[1..n, 1..m] of real;
    i, j: integer;
begin
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random * 11 - 5;
      write(a[i, j]:6:2);
    end;
    writeln;
  end;
  writeln('Элементы второго столбца:');
  for i := 1 to n do
    write(a[i, 2]:6:2);
end.

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

Объявлены константы n = 3 и m = 6, а также переменная a типа array[1..n, 1..m] of real.
Объявлены переменные i и j типа integer.
Вызвана функция randomize для инициализации генератора случайных чисел.
Два вложенных цикла for проходят по всем элементам матрицы a.
В каждой итерации внутреннего цикла значение элемента a[i, j] устанавливается равным random * 11 - 5, где random — случайное число от 0 до 1.
В каждой итерации внешнего цикла значение элемента a[i, j] выводится на экран с помощью функции write в формате 6 символов с пробелами.
После завершения внешнего цикла выводится символ новой строки с помощью функции writeln.
Выводится сообщение 'Элементы второго столбца:'.
Два вложенных цикла for проходят по всем элементам матрицы a.
В каждой итерации внутреннего цикла значение элемента a[i, 2] выводится на экран с помощью функции write в формате 6 символов с пробелами.
После завершения внешнего цикла выводится символ новой строки с помощью функции writeln.