Первым на печать вывести массив, содержащий наибольшее значение - Pascal ABC

type
    TLine = Array[Byte] Of ShortInt;
procedure PrintArray(const a: TLine; const n: Byte; const c: Char);
var
    i: Byte;
begin
    Write('Array ', c, ':');
    for i := 0 to n - 1 do
        Write(a[i]:4);
    WriteLn;
end;
 
var
    i, n, m, aMax, bMax: Byte;
    a, b: Array[Byte] Of ShortInt;
begin
    Randomize;
    Write('Input n (1..255): '); ReadLn(n);
    aMax := 0;
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        if (a[i] > a[aMax])
        then
            aMax := i;
    end;
    Write('Input m (1..255): '); ReadLn(m);
    bMax := 0;
    for i := 0 to m - 1 do
    begin
        b[i] := Random(199) - 99;
        if (b[i] > b[bMax])
        then
            bMax := i;
    end;
    if (a[aMax] > b[bMax])
    then
    begin
        PrintArray(a, n, 'A');
        PrintArray(b, m, 'B');
        WriteLn; WriteLn('max: A[', aMax + 1, ']=', a[aMax]);
    end
    else
    begin
        PrintArray(b, m, 'B');
        PrintArray(a, n, 'A');
        WriteLn; WriteLn('max: B[', bMax + 1, ']=', b[bMax]);
    end;
end.