Найти максимальный элемент в каждом столбце

write(Y[i,j]:3)

program q;
var max,i,j: integer;x:real;
Y:array [1..10,1..10] of integer;
begin
x:= 5.2;
for i:=1 to 10 do
for j:=1 to 10 do
begin
Y[i,j]:=cos(exp(ln(x)*0.25)-0.5*exp(ln(x)*0.5)+0.25*exp(ln(x)*0.75));
x:=x+0.75;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write('Исходный массив ',Y[i,j]);
writeln;
end;
for j:=1 to 10 do
begin
max:=Y[i,i];
for i:=1 to 10 do
for j:=1 to 10 do
if Y[i,j]>max then max:=Y[i,j];
writeln('Максимальный в столбце ',j:2,'=',max);
end;
readln;
end.

program q;
 
const
  n = 10;
 
var
  i, j, mem_j: integer;
  x, max: real;
  Y: array [1..n, 1..n] of real;
 
begin
  x := 5.2;
  for i := 1 to n do
    for j := 1 to n do
    begin
      Y[i, j] := cos(exp(ln(x) * 0.25) - 0.5 * exp(ln(x) * 0.5) + 0.25 * exp(ln(x) * 0.75));
      x += 0.75;
    end;
  
  writeln('Исходный массив: ');
  
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(Y[i, j]:1:2, '   ');
    writeln;
  end;
  
  mem_j := 0;
  max := Y[1, 1];
  j := 1;
  for i := 1 to n do
  begin
    if Y[i, j] > max 
      then max := Y[i, j];
    mem_j := j;
    inc(j);
  end;
  
  writeln('Максимальный элемент в столбце ', mem_j, ' = ', max);
  
end.

begin
  var a := MatrRandom(4, 4, 0, 100);a.Print;
  write(a.Cols.Select((v, i) -> Format('{0} столбец - {1}', i + 1, v.Max)).JoinIntoString(NewLine));
end.

begin
  var x := 5.2;
  var m := MatrGen(4, 4, (p, q) -> begin
                                        result := cos(exp(ln(x)*0.25)-0.5*exp(ln(x)*0.5)+0.25*exp(ln(x)*0.75));
                                        x := x + 0.75;
                                      end).Println(21, 15);
  m.Cols.Select((v, i) -> Format('{0} столбец - {1}', i + 1, v.Max)).Println(NewLine);
end.

begin
  var x := 5.2;
  var m := MatrGen(10, 10, (p, q) -> begin
                                        result := cos(exp(ln(x)*0.25)-0.5*exp(ln(x)*0.5)+0.25*exp(ln(x)*0.75));
                                        x := x + 0.75;
                                      end).Println(8, 3);
  m.Cols.Select((v, i) -> Format('{0,2} столбец: {1:0.000}', i + 1, v.Max * v.Average)).Println(NewLine);
end.