Найти количества отрицательных элементов в двух матрицах

type
    TArray = Array[Byte, Byte] Of Integer;
 
procedure PrintArray(const x: TArray; const n, m: Byte);
var
    i, j: Byte;
begin
    WriteLn;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(x[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
 
procedure InitArray(var x: TArray; var n, m: Byte);
var
    i, j: Byte;
begin
    Randomize;
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('m=');
        ReadLn(m);
    until (m > 0);
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            x[i, j] := Random(51) - 25;
    PrintArray(x, n, m);
end;
 
function GetNegCount(const x: TArray; const n, m: Byte): Word;
var
    i, j: Byte;
    Result: Word;
begin
    Result := 0;
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            if (x[i, j] < 0)
            then
                Inc(Result);
    GetNegCount := Result;
end;
 
procedure ChangeArray(var x: TArray; const n, m: Byte; const k: Word);
var
    i, j: Byte;
begin
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
            if ((i = 0) Or (i = n - 1))
            then
                x[i, j] := k
            else
                if ((j = 0) Or (j = m - 1))
                then
                    x[i, j] := k;
    PrintArray(x, n, m);
end;
 
var
    a, b: TArray;
    n1, n2, m1, m2: Byte;
    k1, k2: Word;
begin
    InitArray(a, n1, m1); InitArray(b, n2, m2);
    k1 := GetNegCount(a, n1, m1); k2 := GetNegCount(b, n2, m2);
    if (k1 > k2)
    then
        ChangeArray(a, n1, m1, k1)
    else
        ChangeArray(b, n2, m2, k2);
end.