Построить последовательность из нулей и единиц согласно условию элементов матрицы

const
    n = 5;
 
type
    TLine = Array[1..n] Of ShortInt; //вектор из чисел
    TMass = Array[1..n] Of TLine; //вектор векторов TLine
 
var
    a : TMass;
 
procedure InitMass(var arr : TMass); //инициализация массива
var
    i, j : Byte;
begin
    Randomize;
    for i := 1 to n do
        for j := 1 to n do
            arr[i, j] := Random(199) - 99; //[-99; 99]
end;
 
procedure PrintMass(const arr : TMass); //вывод на экран
var
    i, j : Byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(a[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
 
begin
 
    WriteLn('Исходный массив:');
    InitMass(a); PrintMass(a);
    WriteLn('Последовательность чисел:');
    
   
end.

const
    n = 5;
type
    TLine = Array[1..n] Of ShortInt; //вектор из чисел
    TMass = Array[1..n] Of TLine; //вектор векторов TLine
var
    a: TMass;
    b: TLine;
procedure InitMass(var arr: TMass); //инициализация массива
var
    i, j: Byte;
begin
    Randomize;
    for i := 1 to n do
        for j := 1 to n do
            arr[i, j] := Random(199) - 99; //[-99; 99]
end;
procedure PrintMass(const arr: TMass); //вывод на экран
var
    i, j: Byte;
begin
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(a[i, j]:4);
        WriteLn;
    end;
    WriteLn;
end;
function CheckLine(const l: TLine): Byte;
var
    j: Byte;
    res: Boolean;
begin
    j := 1;
    repeat
        res := (l[j] < 0);
        Inc(j);
    until ((res) Or (j > n));
    CheckLine := Ord(res);
end;
procedure GenerateNPrintB(const source: TMass; var dest: TLine);
var
    i: Byte;
begin
    for i := 1 to n do
    begin
        dest[i] := CheckLine(source[i]);
        Write(dest[i]:2);
    end;
end;
begin
    WriteLn('Исходный массив:');
    InitMass(a); PrintMass(a);
    Write('Последовательность чисел: ');
    GenerateNPrintB(a, b);
end.