В каждой из матриц поменять местами две строки - Pascal

type
    TLine = Array[Byte] Of ShortInt;
    TArray = Array[Byte] Of TLine;
    TMatrix = record
        arr: TArray;
        n, m: Byte;
    end;
procedure PrintMatrix(const matr: TMatrix);
var
    i, j: Byte;
begin
    with matr do
        for i := 0 to n - 1 do
        begin
            for j := 0 to m - 1 do
                Write(arr[i, j]:4);
            WriteLn;
        end;
end;
procedure GenerateMatrix(var matr: TMatrix);
var
    i, j: Byte;
begin
    with matr do
    begin
        repeat
            Write('Input n=');
            ReadLn(n);
        until (n > 0);
        repeat
            Write('Input m=');
            ReadLn(m);
        until (m > 0);
        for i := 0 to n - 1 do
            for j := 0 to m - 1 do
                arr[i, j] := Random(199) - 99;
    end;
    PrintMatrix(matr);
end;
procedure SwapLines(var x, y: TLine);
var
    z: TLine;
begin
    z := x;
    x := y;
    y := z;
end;
var
    a, b: TMatrix;
begin
    Randomize();
    WriteLn('Matrix A:'); GenerateMatrix(a);
    WriteLn('Matrix B:'); GenerateMatrix(b);
    with a do
        if (n > 2)
        then
            SwapLines(arr[1], arr[2])
        else
            WriteLn('Not enough lines to swap!');
    WriteLn('New matrix A:'); PrintMatrix(a);
    with b do
        if (n > 3)
        then
            SwapLines(arr[1], arr[3])
        else
            WriteLn('Not enough lines to swap!');
    WriteLn('New matrix B:'); PrintMatrix(b);
end.