Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы - Turbo Pascal

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

Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

Решение задачи: «Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы»

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

const
    N = 5;
    M = 6;
var
    ar: Array[1..N, 1..M] Of ShortInt;
    i: 1..N;
    j: 1..M;
begin
    Randomize; WriteLn('Original:');
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('Modified:');
    for i := 1 to N do
    begin
        Inc(ar[i, 1], ar[i, 2]);
        ar[i, 2] := ar[i, 1] - ar[i, 2];
        Dec(ar[i, 1], ar[i, 2]);
        for j := 1 to M do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.

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

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

Объявляет две константы N и M, которые определяют размеры матрицы.
Объявляет переменную ar типа Array[1..N, 1..M] Of ShortInt, которая представляет собой матрицу.
Объявляет две переменные i и j, которые используются для прохода по матрице.
Выводит оригинальную матрицу с помощью команды WriteLn('Original:').
В цикле for i := 1 до N выполняется следующий код:
- В цикле for j := 1 до M вычисляется случайное число от 0 до 198 с помощью команды Random(199) - 99 и присваивается переменной ar[i, j].
- С помощью команды Write(ar[i, j]:4) выводится значение переменной ar[i, j].
После вывода оригинальной матрицы выводится символ новой строки с помощью команды WriteLn.
Выполняется аналогичный цикл for i := 1 до N, но вместо вывода значений матрицы выполняется изменение значений элементов матрицы.
- С помощью команды Inc(ar[i, 1], ar[i, 2]) увеличивается значение элемента ar[i, 1] на значение элемента ar[i, 2].
- С помощью команды ar[i, 2] := ar[i, 1] - ar[i, 2] вычисляется разность значений элементов ar[i, 1] и ar[i, 2].
- С помощью команды Dec(ar[i, 1], ar[i, 2]) уменьшается значение элемента ar[i, 1] на значение элемента ar[i, 2].
- После изменения значений элементов выполняется повторный вывод матрицы с помощью цикла for j := 1 до M и команды Write(ar[i, j]:4).
- После вывода матрицы выводится символ новой строки с помощью команды WriteLn.
Код завершается без использования команды END.