Двумерный массив! Опции

[-SlipKnoT-]

Помогите пожалуйста с решением задачки.
Ввести двумерный массив A[N,M]. В каждой строке массива упорядочить элементы, стоящие после минимального элемента.
Есть кое какие наброски, но цикл не работает.

Код

Program ZAD_0;
uses crt;
var i,j,p,n,m,k,l,jmin:integer;
    A: array [1..10, 1..15] of real;
    f:real;
    min:real;
begin
clrscr;
  write ('N='); readln(n);
  write ('M='); readln(m);
    for i:=1 to n do
     begin
     writeln;
    for j:=1 to m do
    read (a[i,j]);
     end;
    for i:=1 to n do
     begin
    for j:=1 to m do
      write (a[i,j]:8:3 );
      writeln;
    end;
    for i:=1 to n do
     jmin:=1;
    for j:=2 to m do
    begin
     if a[i,j]<a[i,jmin] then jmin:=j;
     writeln(jmin);
    end;
       writeln;
       writeln;
    for i:=1 to n do begin
     for j:=jmin+1 to m do begin
     if a[i,j+1]<a[i,j] then begin
      f:=a[i,j];
      a[i,j]:=a[i,j+1];
      a[i,j+1]:=f;
      end;
      end;
      end;
     for i:=1 to n do begin
      for j:=1 to m do begin
     write (a[i,j]:8:3);
      end;
      end;
readkey;
end.