Процедура: заполнить вектор, i-й элемент которого равен числу элементов в i-м столбце матрицы, значение которых больше А

const
  n_max = 100;
 
type
  matrix = array[1..n_max, 1..n_max] of real;
  vector = array[1..n_max] of integer;
 
var
  x: matrix;
  r: vector;
  n, m: integer;
  q: real;
 
procedure ReadMatrixFromFile(fname: string; var a: matrix; var kstr, ksto: integer);
var
  i, j: integer;
  f: text;
begin
  assign(f, fname);
  reset(f);
  read(f, kstr, ksto);
  for i := 1 to kstr do
    for j := 1 to ksto do
      read(f, a[i, j]);
  close(f);
end;
 
procedure PrintMatrix(a: matrix; kstr, ksto: integer);
var
  i, j: integer;
begin
  for i := 1 to kstr do
  begin
    for j := 1 to ksto do
      write(a[i, j]:8:2);
    writeln;  
  end;
end;
 
procedure PrintVector(b: vector; k: integer);
var
  i: integer;
begin
  for i := 1 to k do
    write(b[i]:4);
  writeln;  
end;
 
procedure DoVector(a: matrix; z: real; var b: vector; var m: integer);
var
  c, i, j: integer;
begin
  for j := 1 to m do
  begin
    c := 0;
    for i := 1 to n do
      if a[i, j] > z then
        inc(c);
    b[j] := c;
  end;
end;
 
begin
  ReadMatrixFromFile('file.txt', x, n, m);
  PrintMatrix(x, n, m);
  writeln('Введите число А: ');
  readln(q);
  DoVector(x, q, r, m);
  PrintVector(r, m);
end.