Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца - Turbo Pascal

Формулировка задачи:

Всем привет. Условие: Есле максимальный элемент массива a[i,j] положителен, то найти количество нулевых элементов каждого столбца иначе удвоить отрицательные элементы Вот мой код:

Program pr1;
uses crt;
var a: array [1..100, 1..100] of integer;
    n,m,i,j,k,max:integer;
begin
    clrscr;
    writeln('n=');
    readln(n);
    writeln('m=');
    readln(m);
    k:=0;
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            write(a[i , j]:4);
            readln(a[i,j]);
        end;
            writeln;
    end;
            for i:=1 to n do
            for j:=1 to m do
            
            if a[i,j]>0 then
             if a[i,j]>max then
            max:=a[i,j];
            
            for i:=1 to n do
            for j:=1 to m do
            begin
            
                if a[i,j]=0 then   k:=k+1;
                end;
                writeln('k=',k);
                end
                else
                begin
                for i:=1 to n do
                for j:=1 to m do
                a[i,j]:=a[i,j]*2;
               end;
                for i:=1 to n do
                begin
                for j:=1 to m do
                begin
                    write(a[i , j]:4);
                    end;
                    writeln;
                    end;
                    readln;
                    end.

Поправьте, буду очень благодарен

upp

Решение задачи: «Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца»

Листинг программы

program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, m, i, j, k, max: integer;
 
begin
  clrscr;
  write('n=');
  readln(n);
  write('m=');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('a[',i,',', j,']=');
      readln(a[i, j]);
    end;
 
  for i := 1 to n do
    for j := 1 to m do
        if a[i, j] > max then
          max := a[i, j];
 
  if max>0 then
  begin
    for j:=1 to m do
    begin
      k:=0;
      for i:=1 to n do
        if a[i,j]=0 then inc(k);
      writeln('Г‚ ',j,'-Г¬ Г±ГІГ®Г«ГЎГ¶ГҐ ',k,' Г*ГіГ«ГҐГ©');
    end;
 
  end else
  begin
    writeln('ГЏГ®Г«ГіГ·ГҐГ*Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*:');
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        a[i,j]:=2*a[i,j];
        write(a[i,j]:4);
      end;
      writeln;
    end;
  end;
  readln;
end.

Объяснение кода листинга программы

Создается программа на языке Turbo Pascal.
Используются стандартные библиотеки.
Объявляются переменные: n, m, i, j, k, max, a (массив целых чисел размером n на m).
Выводится приглашение на ввод значений n и m.
Для каждого i от 1 до n и каждого j от 1 до m выводится значение a[i, j].
Инициализируется переменная max значением a[1, 1], так как это первый элемент матрицы.
Проверяется условие: если максимальное значение положительное, то переходим к следующему шагу.
Для каждого j от 1 до m и каждого i от 1 до n вычисляется количество нулевых элементов в столбце j с помощью переменной k.
Если максимальное значение отрицательное, то выводится сообщение об ошибке.
Для каждого i от 1 до n и каждого j от 1 до m вычисляется значение a[i, j] удваивается и выводится.
Выводится символ новой строки.
Запрашивается ввод с клавиатуры.