В матрице найти столбцы, в которых произведение элементов меньше заданного числа "А"

{В матрице найти столбцы, в которых произведение элементов меньше
заданного числа "А". Определить максимальный элемент в каждом из
этих столбцов и прибавить его ко всем остальным элементам того же стол
бца. Причём всё это должно быть записано в текстовый файл,
а при решении задачи использовать процедуры.}
 
uses
  crt;
const
  nmax=10;//макс размер массива
var
  a:array[1..nmax,1..nmax]of real;
  b:array[1..nmax]of real;
  n,m,i,j,k:integer;
  p:real;//произведение
  max,chislo:real;
  f:text;//файл
begin
  clrscr;
  repeat
    write('Kolichectvo strok n='); //ввод размеров массива с проверкой
    readln(n);
    if n>10 then
      writeln('Prevyshen razmer massiva. Povtorite vvod.');
  until (n>0) and(n<=10);
 
  repeat
    write('Kolichectvo stolbcov m=');
    readln(m);
    if m>10 then
      writeln('Prevyshen razmer massiva. Povtorite vvod.');
  until (m>0) and(m<=10);
 
  writeln('Vvedite ',n*m,' elementov massiva:'); //ввод самого массива
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]); //вводим хоть как, лишь бы через пробелы
  readln;
 
  clrscr;
  assign(f,'matr.txt'); //связываем переменную с именем файла
  rewrite(f);  //открываем для записи
  writeln('Matrica:'); //заголовок
  writeln(f,'Matrica:'); //то же в файл
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:6:2); //вывод матрицы на экран
          write(f,a[i,j]:6:2);//в файл
        end;
      writeln; //новая строка на экране
      writeln(f,'');//в файле
    end;
 
  chislo:=5;
  for j:=1 to m do
    begin
      p:=1;
      for i:=1 to n do
        p:=p*a[i,j]; //считаем произведения в столбцах
      if p<chislo then // условие выполнено, считаем макс
        begin
          max:=a[1,j];
          for i:=2 to n do
            if a[i,j]>max then
              max:=a[i,j];
        end;
        for i:=1 to n do
          if p<chislo then
            a[i,j]:=a[i,j]+max;
    end;
 
  writeln('Novaja Matrica:'); //заголовок
  writeln(f,'Novaja Matrica:'); //то же в файл
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:6:2); //вывод матрицы на экран
          write(f,a[i,j]:6:2);//в файл
        end;
      writeln; //новая строка на экране
      writeln(f,'');//в файле
    end;
 
  close(f);
  readln;
end.