Помогите пожалуйста задачу по информатике решить на языке Паскаль.

Question

Напишите программу, которая находит в матрице столбцы, в которых есть элемент, равный максимальному.
Входные данные
В первой строке записаны через пробел размеры матрицы: количество строк N и количество столбцов M ( 1 ≤ N, M ≤ 100 ). В следующих Nстроках записаны строки матрицы, в каждой – по M натуральных чисел, разделённых пробелами.
Выходные данные
Программа должна вывести все столбцы, в которых есть элемент, равный максимальному элементу в матрице. Каждый столбец выводится в одну строку, элементы разделяются пробелами.

Примеры
входные данные
4 5
1 897 2 54 234
75 12 3 46 9
13 26 56 9 12
14 90 897 6 34

выходные данные
897 12 26 90 
2 3 56 897

Есть начало, но не знаю как вывести, не получается

Program Ex1;
Var A:array[1..100,1..100] of integer;
I,j,n,m,max,k:Integer;
begin
Readln(n,m);
For I:=1 to N do begin;
For j:=1 to M do Read(A[I,j]);
Readln;
end;
for J:=1 to M do begin;
for i:=1 to N do begin;
If a[i,j]>max then begin
Max:=a[i,j];
end;
end;
end;
for i:=1 to N do begin
for J:=1 to M do begin
if a[i,j]=max then begin;

Nurdin Kudaybergenov · Accepted Answer

Program Ex1;
Var A:array[1..100,1..100] of integer;
b:array[1..100] of integer;
I,j,n,m,max,k,t:Integer;
Begin
Readln(n,m);
For i:=1 to n do
For j:=1 to m do Read(a[i,j]);

max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
If a[i,j]>max then max:=a[i,j];

for j:=1 to m do
 begin
 k:=0;
 for i:=1 to n do
 begin
 if a[i,j]=max then k:=k+1;
 b[i]:=a[i,j];
 end;
 if k<>0 then
 for t:=1 to n do
 Write(b[t],' ');
 Writeln;
 end;
End.

Елена · Answer

for i:=1 to N
begin

for j:=1 to M

begin

if a[i][j]>max

then max:=a[i][j];

end;

writeln("max element" ,i, "stroki",max:4:2);

end;