Найти наибольший элемент в каждом столбике двумерного массива

const  H : array [1..3, 1..5] of real = ((8.4, 6.3, 2, -5.4, 0),
                                                       (5.4, 3.2, -8.6, 1.5, 6.9),
                                                        (-7.8, -2.4, 8.4, 0, 16));

const
  H : array [1..3, 1..5] of real = ((8.4, 6.3, 2, -5.4, 0),
                                    (5.4, 3.2, -8.6, 1.5, 6.9),
                                    (-7.8, -2.4, 8.4, 0, 16));
var
  i, j : integer;
  max : real;
begin  
  writeln('Двумерный массив:');
  for i := 1 to 3 do
  begin
    for j := 1 to 5 do write(H[i, j]:6:2);
    writeln
  end;  
  writeln;
  writeln('Максимальный элемент каждого столбца:');
  for j := 1 to 5 do
  begin
    max := -50;
    for i := 1 to 3 do
      if max < H[i, j] then max := H[i, j];
    write(max:6:2)  
  end
end.