9561. Найбольшее в каждом столбце

var i,j,n,m,mx:int64;
    A : array[0..1000,0..1000] of int64;
begin

    readln(n,m);

    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
                read(A[i,j]);
        end;
        readln()
    end;

    for j:=1 to m do
    begin
        mx := -100000;
        for i:=1 to n do
            if(mx < A[i,j]) then
                mx := A[i,j];
        write(mx,' ');
    end;
end.