Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру

N, i, j, Q_Up, Q_down: integer;
  A: array[1..20, 1..20] of real;
  
begin 
  write(' N = ');
  readln(N);
  writeln('Исходная матрица:');
  writeln;
  Q_up := 0; //количество отрицательных элементов выше главной диагонали
  Q_down := 0; //ниже главной диагонали
  randomize;
  for i := 1 to N do
  begin
    for j := 1 to N do 
    begin
      a[i, j] := 20 * random - 10; //вещественное число с интервала -10..10
      if a[i, j] < 0 then begin
        write(' ');
        if i < j then inc(Q_up)
        else
        if i > j then inc(Q_down)
      end
      else write('  ');
      write(a[i, j]:0:2);
    end;
    writeln;
  end;
  writeln;
  writeln('Отрицательные элементы:');
  writeln(' выше главной диагонали: ', Q_up);
  writeln(' ниже главной диагонали: ', Q_down);
end.

uses crt;
type mtr=array[1..10, 1..10] of real;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
write('0<N<=10 N = ');
read(N);
until N in [1..10];
writeln('Исходная матрица:');
writeln;
for i := 1 to N do
 begin
  for j := 1 to N do
   begin
    a[i, j] := 20 * random - 10; //вещественное число с интервала -10..10
    write(a[i, j]:7:2);
   end;
  writeln;
 end;
end;
function Q_Up(a:mtr;n:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i := 1 to N do
for j := 1 to N do
if (a[i, j] < 0)and(i < j) then inc(k);
Q_Up:=k
end;
function Q_Down(a:mtr;n:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i := 1 to N do
for j := 1 to N do
if (a[i, j] < 0)and(i > j) then inc(k);
Q_Down:=k
end;
var a:mtr;
    n:integer;
begin
randomize;
Matrix(a,n);
writeln('Отрицательные элементы:');
writeln(' выше главной диагонали: ', Q_up(a,n));
writeln(' ниже главной диагонали: ', Q_down(a,n));
end.