Для матрицы подсчитать количество элементов, меньших нуля, ровных нулю и больших нуля

program Project1;
 
{$APPTYPE CONSOLE}
 
 
 
uses
  SysUtils, Math;
 
type TXx = record
  Bol, Men, Rawn: Integer;
end;
 
  TArr = Array[0..9, 0..9] of Integer;
 
function aa(A: TArr): TXx;
var i, j: Integer;
begin
  Result.Bol := 0;
  Result.Men := 0;
  Result.Rawn := 0;
  for i := 0 to Length(A) - 1 do
    begin
      for j := 0 to Length(A) - 1 do
        begin
          if A[i, j] < 0 then
            Result.Men := Result.Men + 1;
 
          if A[i, j] > 0 then
            Result.Bol := Result.Bol + 1;
 
          if A[i, j] = 0 then
            Result.Rawn := Result.Rawn + 1;
        end;
    end;
end;
 
var A: TArr;
    i, j: Integer;
begin
  Randomize;
  for i := 0 to Length(A) - 1 do
    begin
      for j := 0 to Length(A) - 1 do
        begin
          A[i, j] := RandomRange(-20, 20);
          Write(A[i, j]:5);
        end;
      Writeln;
    end;
    Writeln;
    Writeln('> 0: ', aa(A).Bol);
    Writeln('< 0: ', aa(A).Men);
    Writeln('= 0: ', aa(A).Rawn);
    Readln;
end.