Определить индексы наименьшего элемента в каждой строке матрицы - Pascal ABC

var m:array [1..6,1..4] of integer;
min,min_j,i,j:integer;
BEGIN
For i:=1 to 6 do  //заполняем массив
  For j:=1 to 4 do m[i,j]:=Random (1000);
For i:=1 to 6 do begin //строки
  min:=MaxInt;
  For j:=1 to 4 do  //столбцы
    IF m[i,j]<min THEN begin 
                       min_j:=j;
                       min:=m[i,j];
                       end;
  Writeln (i,' ',min_j);
end;
END.