Подсчитать количество положительных и отрицательных элементов массива

unit 
myunit;
 
interface
 
const
  n_max = 100;
 
type
  matrix = array [1..n_max, 1..n_max] of integer;
 
procedure CreateMatrix(n: integer; var a: matrix);
procedure PrintMatrix(n: integer; a: matrix);
procedure DoAction(n: integer; a: matrix; var kn, kp: integer);
 
implementation
 
procedure CreateMatrix(n: integer; var a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := -n_max div 2 + random(n_max);
end;
 
procedure PrintMatrix(n: integer; a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:6);
    writeln;
  end;
end;
 
procedure DoAction(n: integer; a: matrix; var kn, kp: integer);
var
  i, j: integer;
begin
  kp := 0;
  kn := 0;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] > 0 then
        inc(kp);
      if a[i, j] < 0 then
        inc(kn);
    end;
end;
 
begin
end.

Uses
  MyUnit;
var
  x: matrix;
  z, y, n, i: integer;
 
begin
  readln(n);
  writeln('Матрица X: ');
  randomize;
  CreateMatrix(n, x);
  PrintMatrix(n, x);
  DoAction(n, x, z, y);
  writeln('Количество положительных элементов массива: ', y);
  writeln('Количество отрицательных элементов массива: ', z);
end.