Найти номера наибольших элементов каждой строки матрицы, результаты записать в вектор Fmax

uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  col=4;{êîëè÷åñòâî ñòîëáöîâ}
type
  MyArr=array[1..str,1..col]of integer;
  Vect=array[1..str]of integer;
var
  a:MyArr;
  b:Vect;
  i,j:integer;
{ïðîöåäóðà ãàõîæäåíèÿ ìàêñèìóì êàæäîé ñòðîêè è ôîðìèðîâàíèÿ âåêòîðà}
procedure Find_Fmax(a:MyArr; var b:Vect);
var
  i,j,max:integer;
begin
  {íàõîäèì ìàêñèìóì êàæäîé ñòðîêè}
  for i:=1 to str do
  begin
    max:=a[i,1];
    b[i]:=1;
    for j:=2 to col do
      if a[i,j]>max then
        max:=a[i,j];
    b[i]:=max
  end;
  {âûâîäèì âåêòîð}
  writeln('Âåêòîð:');
  write('[ ');
  for i:=1 to str do
    write(b[i],' ');
  writeln(']')
end;
{îñíîâíàÿ ïðîðãàììà}
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  Find_Fmax(a,b)
end.