Подпрограмма: Для матрицы найти количество отрицательных элементов каждого столбца

var A:array[1..100] of integer;
B:array[1..100] of integer;
n,i,j,m,k,p:integer;
procedure el1(c:real);
begin
  var j,n,i,m:integer;
  for n := 1 to i do
  for m := 1 to j do
  begin
    c := 0;
      if a[n,m] < 0 then
        Inc(c);
        el1:=c;
        end;
        end;
procedure el2(d:real);
begin
  var j,t,i,k:integer;
  for k := 1 to i do
  for t := 1 to j do
  begin
    c := 0;
      if b[k,t] < 0 then
        Inc(d);
        el2:=d;
        end;
        end;
begin
writeln (' Введите количество строк в матрице A ');
 readln (i);
 writeln (' Введите количество столбцов в матрице A ');
 readln (j);
  for n:=1 to i do
    for m:=1 to j do begin
                     readln (a[n,m]);
                     end;
                     randomize;
for n:=1 to i do
 begin
  for m:=1 to j do
   begin
     a[n,m]:=random(10);
   end;
   end;
writeln (' Введите количество строк в матрице B ');
 readln (i);
 writeln (' Введите количество столбцов в матрице B ');
 readln (j);
  for k:=1 to i do
    for t:=1 to j do begin
                     readln (b[k,t]);
                     end;
 randomize;
for k:=1 to i do
 begin
  for t:=1 to j do
   begin
     b[k,t]:=random(10);
end;
end;
writeln('искомые элементы в матрице А',-el1(a[n,m]));
writeln('искомые элементы в матрице B',-el2(b[k,t]));
end.

const
  mij = 100; //максимальное количество строк или столбцов
type
  matrix = array[1..mij, 1..mij] of integer; //описание типа для матрицы
  arr = array[1..mij] of integer; //описание типа для одномерного массива
 
{процедура ввода размеров матрицы с проверкой}
procedure readln_q(s: string; var k: integer);
begin
  repeat
    write(s); //печатаем приглашение ввода
    readln(k) //вводим значение
  until (1 <= k) and (k <= mij) //выходим из цикла, если введено допустимое значение
end;
 
{процедура генерации и печати матрицы}
procedure gen_prn(c: char; var x: matrix; var m, n: integer);
var
  i, j: integer;
begin
  readln_q('Введите количество строк в матрице ' + c + ': ', m); //вводим количество строк
  readln_q('Введите количество столбцов в матрице ' + c + ': ', n); //вводим количество столбцов
  writeln('Матрица ', c, ':'); //печатаем заголовок матрицы
  for i := 1 to m do //цикл по строкам
    begin
      for j := 1 to n do //цикл по столбцам
        begin
          x[i,j] := -99 + random(199); //генерируем элемент в диапазоне [-99..99]
          write(x[i,j]:4) //печатаем элемент в 4 позиции
        end;
      writeln //перевод на следующую строку
    end
end;
 
{процедура поиска количества отрицательных по столбцам}
procedure el(const x: matrix; const m, n: integer; var y: arr);
var
  i, j: integer;
begin
  for j := 1 to n do y[j] := 0; //обнуляем количества элементов
  for i := 1 to m do //цикл по строкам
    for j := 1 to n do //цикл по столбцам
      if x[i,j] < 0 then inc(y[j]) //если элемент отрицательный, то увеличиваем количество для соответствующего столбца на 1
end;
 
{процедура печати одномерного массива (количества отрицательных по столбцам)}
procedure vec_prn(var y: arr; const n: integer);
var
  j: integer;
begin
  writeln('Количество отрицательных элементов по столбцам:'); //печать заголовка массива
  for j := 1 to n do write(y[j]:4); //печать элементов
  writeln; //перевод на следующую строку
  writeln //печать пустой строки
end;
 
{основная программа}
var
  a, b: matrix;
  oa, ob: arr;
  ma, na, mb, nb: integer;
begin
  randomize; //инициализация ГПСЧ
  gen_prn('A', a, ma, na); //генерация и печать матрицы A
  el(a, ma, na, oa); //нахождение количеств отрицательных элементов для столбцов матрицы A
  vec_prn(oa, na); //печать количеств отрицательных элементов для столбцов матрицы A
  gen_prn('B', b, mb, nb); //генерация и печать матрицы B
  el(b, mb, nb, ob); //нахождение количеств отрицательных элементов для столбцов матрицы B
  vec_prn(ob, nb); //печать количеств отрицательных элементов для столбцов матрицы B
  readln //ожидание нажатия клавиши <Enter> перед закрытием программы
end.