Записать в одномерный массив наибольшие отрицательные элементы каждой строки матрицы под главной диагональю

type
    TLine = Array Of Integer;
    TMass = Array Of TLine;
 
var
    mass : TMass;
    aa : TLine;
    i, j, n, k : Byte;
    max : Integer;
 
begin
    Randomize;
    repeat
        Write('Введите метод [1. ручной; 2. рандом]: ');
        ReadLn(k);
    until (k in [1..2]);
    Write('Введите n='); ReadLn(n);
    SetLength(mass, n); SetLength(aa, n-1);
    for i := 0 to n-1 do
    begin
        SetLength(mass[i], n);
        if (k = 1) then
            for j := 0 to n-1 do
            begin
                Write('mass[', i+1, '][', j+1, ']=');
                ReadLn(mass[i, j]);
            end
        else
            for j := 0 to n-1 do
            begin
                mass[i, j] := Random(19)-9;
                Write(mass[i, j]:5);
            end;
        WriteLn;
    end;
    WriteLn; WriteLn; WriteLn;
    for i := 1 to n-1 do
    begin
        max := 0;
        for j := 0 to i-1 do
            if (mass[i, j] < 0) then
            begin
                max := mass[i, j]; //костыль, но исправно работающий :)
                break;
            end;
        for j := j+1 to i-1 do
            if (mass[i, j] < 0) then
                if (max < mass[i, j]) then
                    max := mass[i, j];
        aa[i-1] := max;
        if (aa[i-1] < 0) then
            Write(aa[i-1]:5)
        else
            Write('    -');
    end;
end.