задачка по массивам в паскале

[veronichka]

в массиве С(N,M) (N<=10; M<=15) заменить наименьший элемент каждой строки, начиная со второй, наименьшим элементом предыдущей строки.

[ОДИНОЧЕСТВО В СЕТИ]

var i,j,m,n,min,max:integer;
    mas:array[1..10,1..15] of integer;
begin
 readln(m,n);
 for i:=1 to m do
  for j:=1 to n do
  begin
   read(mas[i,j]);
  end;
 for i:=2 to m do
 begin
  min:=1;max:=1;
  for j:=1 to n do
  begin
   if mas[i-1,j]>mas[i-1,max] then max:=j;
   if mas[i,j]<mas[i,min] then min:=j;
  end;
  mas[i,min]:=mas[i-1,max]
 end;
 for i:=1 to m do
 begin
  for j:=1 to n do
   write(mas[i,j],' ');
  writeln;
 end;
end.

[Anatole]

ОДИНОЧЕСТВО В СЕТИ
у вас неточность, при условии:

заменить наименьший элемент каждой строки, начиная со второй, наименьшим элементом предыдущей строки.

необходиммо поменять знак неравенства:

 if mas[i-1,j]<mas[i-1,max] then max:=j;

[veronichka]

спасиб ребятки))