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

procedure otbor (b:matr; n,m:integer; var a:mas);
var min:integer;
begin
for i:=1 to n do begin
min:=b[i,1];
for j:=1 to m do
if min>b[i,j] then min:=b[i,j];
a[i]:=j;
 
end;
end;

type
    TLine = Array[Byte] Of Integer;
    TArray = Array[Byte] Of TLine;
function GetMinId(const line: TLine; const m: Byte): Byte;
var
    j, Result: Byte;
begin
    Result := 0;
    for j := 1 to m - 1 do
        if (line[j] < line[Result])
        then
            Result := j;
    GetMinId := Result + 1; //нумерация от нуля, но "для читабельности" прибавляем единицу
end;
var
    i, j, n, m: Byte;
    l: TLine;
    ar: TArray;
begin
    {заполнение}
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('m=');
        ReadLn(m);
    until (m > 0);
    Randomize();
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn;
    {поиск индексов минимумов}
    for i := 0 to n - 1 do
    begin
        l[i] := GetMinId(ar[i], m);
        Write(l[i]:4);
    end;
end.

procedure otbor (b:matr; n,m:integer; var a:mas);
var min:integer;
begin
for i:=1 to n do begin
min:=b[i,1]; a[i]:=1;
for j:=1 to m do
if min>b[i,j] then begin min:=b[i,j];
a[i]:=j;
 
end;
end;
end;