Двухмерный массив случайных чисел

[AxisNet]

доброго времени суток! прошу помочь новичку: необходимо создать двумерный массив случайных чисел и вывести на экран минимальный элемент в каждой строке с указанием индекса этого элемента. Массив создал, заполнил случайными числами, а дальше проблема, минимальный элемент могу выделить только из всего массива, а не в каждой строке.

[Greblin]

Кидайте код, подправим

[AxisNet]

С каждой строкой разобрался, теперь осталось выделить индекс минимального значения в каждой строке

Program X;
Uses CRt;
const n=3;
        m=3;

Var a:array[1..n,1..m] of integer;
    i,j,min: integer;


Begin
     Randomize;
     Clrscr;

     Writeln('Dvumernyy massiv chisel 3x3');
     Writeln('- - - - - - - - - - - - - -');
     for i:=1 to n do begin
     for j:=1 to m do begin
     a[i,j]:=random(100);
     Write(a[i,j]:2,' ');
     end;
     writeln;
     end;
     writeln('- - - - - - - - - - - - - -');
     for i:=1 to n do begin
     min:=a[i,1];
     for j:=2 to m do
     if a[i,j]<min then min:=a[i,j];
     writeln('min znachenie stroki ',i,' - ',min);
     end;
     Readkey;
end.

[Greblin]

var jmin: integer;
...
for i := 1 to n do
  begin
  min := a[i, 1];
  jmin := 1;
  for j := 2 to m do
    if a[i, j] < min then begin min := a[i,j]; jmin := j; end;
  writeln('min znachenie stroki ',i,' - ',min,' - [',jmin,']');
  end;
...

[AxisNet]

спасибо, все ок