Из строк матрицы сформировать по массиву - Pascal

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

Дан двумерный массив 5*5, преобразовать в 5 одномерных массивов, где каждая строка=>новый массив.

Решение задачи: «Из строк матрицы сформировать по массиву»

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

const
    m_max = 5;
type
    TLine = Array[0..m_max - 1] Of ShortInt;
procedure PrintLine(const l: TLine);
var
    j: Byte;
begin
    WriteLn;
    for j := 0 to m_max - 1 do
        Write(l[j]:4);
    WriteLn;
end;
var
    ar: Array[0..m_max - 1] Of TLine;
    a, b, c, d, e: TLine;
    i, j: Byte;
begin
    Randomize();
    for i := 0 to m_max - 1 do
    begin
        for j := 0 to m_max - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    a := ar[0]; b := ar[1]; c := ar[2]; d := ar[3]; e := ar[4];
    PrintLine(a); PrintLine(b); PrintLine(c); PrintLine(d); PrintLine(e);
end.

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

Объявление и инициализация константы m_max со значением 5.
Определение нового типа TLine как массив из 5 элементов типа ShortInt.
Определение процедуры PrintLine, которая принимает параметр l как массив типа TLine и выводит его содержимое.
Объявление массив ar из 5 элементов типа TLine и создание дополнительных переменных a, b, c, d, e как тип TLine.
Объявление переменных i и j как Byte для использования в циклах.
Использование функции Randomize() для инициализации генератора случайных чисел.
Вложенный цикл for для заполнения массива ar случайными значениями и их вывода с помощью WriteLn.
Присваивание первых пяти строк массива ar переменным a, b, c, d, e.
Вызов процедуры PrintLine для вывода содержимого каждой из переменных a, b, c, d, e. Этот код генерирует и выводит случайные числа в виде матрицы, а затем выводит каждую строку матрицы в отдельности.