Дан двумерный массив. Найти максимальный элемент в каждом столбце — Pascal(Паскаль)

uses crt;
 
const M = 5;
var I,J:integer;
    X,Y,N:integer;
    A:array[1..M,1..M] of integer;
 
begin
 clrscr;
 randomize;
 for I:=1 to M do
 for J:=1 to M do
 A[I,J]:=random(100);
 for I:=1 to M do
  begin
   for J:=1 to M do
   write (A[I,J]:4);
   writeln;
  end;
 X:=1;
 Y:=1;
 N:=A[X,Y];
 for I:=1 to M do
  for J:=1 to M do
  if N<A[I,J] then
   begin
    X:=I;
    Y:=J;
    N := A[X,Y];
   end;
 writeln('Col: ', Y:4);
 writeln('Max: ', N:4);
 readln;
end.