что неверно в составленной программе?

[Alexey355]

она выводит только последнее в коде сообщение.

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

program ADR_433_11;
type matr=array [1..7,1..10] of integer;

procedure input(var X:matr; var m,n:integer);
var i,j:integer;
begin
writeln('введите кол-во строк m');
read(m);
writeln('введите кол-во столбцов n');
read(n);
writeln('введите матрицу X(mхn)');
for i:=1 to m do
for j:=1 to n do
read(X[i,j]);
end;

function f1(var X:matr; var s1,m,n:integer; var flag:boolean):integer;
var k,i,j:integer;
begin
 for j:=1 to n do
         begin
              s1:= 0;
              for i:=1 to m do
              if (X[i,j]=0) then s1:=s1+1;
         end;
flag:=true;
j:=2;
while(j<=n)and flag do
begin
  k:=0;
  for i:=1 to m do
  if X[i,j]=0 then k:=k+1;
  if k<=s1 then flag:=false else
     begin
     s1:=k;
     j:=j+1;
     end;
end;
end;
 
function f2(var X:matr; var max0,m,n:integer; var stmax0:integer):integer;
var i,j:integer;
    kol0:integer;
begin
  max0:=0;
     for j:=1 to n do
         begin
              kol0:=0;

              for i:=1 to m do
              if (X[i,j]=0) then kol0 := kol0 + 1;
              if (kol0 > max0) then
                 begin
                      max0 := kol0;
                      stmax0 := j;
                 end;
         end;
end;

var A:matr;
    i,j,m,n,max0,stmax0,s1,k:integer;
    flag:boolean;
    
begin
input(A,m,n);
f1(A,s1,m,n,flag);
if flag=true then
writeln('нулевых элементов в матрице',s1) else
begin
f2(A,max0,m,n,stmax0);
writeln('Столбец с наибольшим кол-вом нулей имеет номер ', stmax0, ', нулей в нём ', max0);
end;
end.

[Антон Лысенко]

в функции f1, эту строчку "s1:= 0"; вынесите за цикл, а то у вас, при при переходе на следующий столбец, s1 всё время обнуляется и программа выполняет вот это действие "if k<=s1 then flag:=falsе".

[Антон Лысенко]

А не, извините не так. но смотрите у вас что-то с флагом.