Для матрицы получить вектор из индексов максимальных элементов столбцов

uses crt;
var a: array [1..4,1..4] of longint;
    b: array [1..4] of longint;
    i,j:byte;
 
function getMax(n:byte):longint;
var max:longint;
    i:byte;
begin
  max:=-MaxLongInt;
  for i:=1 to 4 do
    if a[i,n]>max then max:=a[i,n];
  getMax:=max;
end;
 
begin
  writeln('A:');
  for i:=1 to 4 do
    for j:=1 to 4 do read(a[i,j]);
 
  for i:=1 to 4 do b[i]:=getMax(i);
 
  writeln; write('B: ');
 
  for i:=1 to 4 do write(b[i],' ');
  writeln; readln;
end.

const
    n = 3;
 
type
    Tn = 0..n;
    TLine = Array[Tn] Of LongInt;
    TArray = Array[Tn] Of TLine;
 
function GetMaxIDinLine(const l : TLine) : Tn;
var
    Result, i : Tn; //Result удалить, если будет ругаться компилятор
begin
    Result := 0;
    for i := 1 to n do
        if (l[Result] < l[i])
        then
            Result := i;
    GetMaxIDinLine := Result;
end;
 
var
    i, j : Tn;
    a : TArray;
    b : Array[Tn] Of Tn;
begin
    Randomize;
    for i := 0 to n do
    begin
        for j := 0 to n do
        begin
            a[j, i] := Random(51) - 25;
            Write(a[j, i]:4);
        end;
        WriteLn;
    end;
    WriteLn;
    for i := 0 to n do
    begin
        b[i] := GetMaxIDinLine(a[i]);
        Write(b[i] + 1:4);
    end;
end.