type index=word;

var i, j, j_max, j_min : index;
    A1, AM, Amax, Amin : integer;

BEGIN

for i:=1 to N do
 begin
   j_max := 1;
   j_min := 1;
   for j:=1 to M do
    begin
      if A[i,j] > A[i,j_max] then j_max := j;
      if A[i,j] < A[i,j_min] then j_min := j;
    end;
   A1 := A[i,1];
   Amin := A[i,j_min]
   AM := A[i,M];
   Amax := A[i,j_max];
   A[i,1] := Amin;
   A[i,j_min] := A1;
   A[i,M] := Amax;
   A[i,j_max] := AM;
 end;

END.