Построить новую матрицу, которая не содержит строку с минимальным элементом

type
    TMass = Array Of Array Of ShortInt;
 
procedure PrintMass(const ar : TMass);
var
    i, j : Byte;
begin
    for i := 0 to Length(ar) - 1 do
    begin
        for j := 0 to Length(ar[i]) - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
 
function GenMass(const ar : TMass; const x, y : Byte) : TMass;
var
    i, j, k, l : Byte;
    Result : TMass;
begin
    k := 0;
    SetLength(Result, Length(ar) - 1, Length(ar[0]) - 1);
    for i := 0 to Length(ar) - 1 do
    begin
        if (i <> x)
        then
        begin
            l := 0;
            for j := 0 to Length(ar[i]) - 1 do
                if (j <> y)
                then
                begin
                    Result[k, l] := ar[i, j];
                    Inc(l);
                end;
            Inc(k);
        end;
    end;
    GenMass := Result;
end;
 
procedure FindID(const ar : TMass; var x, y : Byte; const state : Boolean);
var
    i, j : Byte;
    temp : ShortInt;
begin
    x := 0; y := 0; temp := ar[0, 0];
    temp := ar[0, 0];
    for i := 0 to Length(ar) - 1 do
        for j := 0 to Length(ar[i]) - 1 do
            if ((state And (ar[i, j] < temp)) Or (Not state And (ar[i, j] > temp)))
            then
            begin
                x := i;
                y := j;
                temp := ar[i, j];
            end;
end;
 
procedure InitMass(var ar : TMass);
var
    i, j, n, m : Byte;
begin
    repeat
        Write('Input n: ');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m: ');
        ReadLn(m);
    until (m > 0);
    SetLength(ar, n, m);
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            ar[i, j] := Random(199) - 99;
    PrintMass(ar);
end;
 
var
    arr, arr2 : TMass;
    x1, x2, y1, y2 : Byte;
begin
    Randomize;
    InitMass(arr);
    FindID(arr, x1, y1, true); FindID(arr, x2, y2, false);
    arr2 := GenMass(arr, x1, y2); PrintMass(arr2);
end.