Образовать новый одномерный массив, состоящий из максимумов по столбцам

var i,j,n,m:longint;
x:real;
a:array[1..10000,1..10000] of real; //  исходный массив
b:array[1..10000] of real; // массив который надо получить
function getl(a:real):longint;
var i:longint;
begin
i:=0;
while frac(a)<>0 do begin
        inc(i);
        a:=a*10;
end;
getl:=i;
end;
begin
assign(input,'input.txt');//'input.txt' - имя входного файла, если ввод осуществляется через консоль, то эту и следующую строку надо убрать
reset(input);
assign(output,'output.txt');//'output.txt' - имя выходного файла, если вывод осуществляется в консоль, то эту и следующую строку надо убрать
rewrite(output);
readln(n,m);//размер массива n - кол-во строк, m - кол-во столбцов
for i:=1 to n do
        for j:=1 to m do
                read(a[i,j]); // идёт чтение в массив
for i:=1 to m do begin // идёт проход по массиву (по столбцам)
        x:=a[1,i]; // x - это переменная означающая максимальное значение в столбце (в начале ставим 1-е значение
        for j:=2 to n do
                if a[j,i]>x then x:=a[j,i]; // проходим по столбцу ища максимальное значение
        b[i]:=x; // заносим максимальное значение в массив
end;
for i:=1 to m do
        write(b[i]:0:getl(b[i]),' '); // выводим наш массив b, функция getl предназначена для работы с вещественным типом так как если не округлять, то получится типо такого 1.00000000000000E+000
end.