В строке матрицы с наибольшим элементом на главной диагонали, упорядочить элементы по убыванию - Pascal

const N = 8;
const M = 8;
 
type item_t = double;
type line_t = array[1..M] of item_t;
type tabl_t = array[1..N] of line_t;
 
 
 
var
  s: tabl_t;
  i,c,sX,x,y,mY: integer;
  max: item_t;
  
begin     
    for y:=1 to N do
      for x:=1 to M do
        s[y][x] := random(-100 , 100);
 
 
  for y:= 1 to N do begin
    for x:= 1 to M do
      write(s[y][x] :5);
   writeln;  
  end;
    
  Writeln('-------------------------------');
 
  mY := 1;
  max := s[1][1];
  y := 2;
  x := 2;
  while( (y <= N) AND (x <= M) ) do begin
    if s[y][x] > max then begin
      mY := y;
      max := s[y][x];
    end; 
  
    y := y + 1;
    x := x + 1;
  end;
  
  writeln( 'Max y: ' , mY );
  
  
  for x:=1 to M-1 do 
    for sX:= M downto x+1 do begin
      if s[mY][x] < s[mY][sX] then begin
        max := s[mY][x];
        s[mY][x] := s[mY][sX];
        s[mY][sX] := max;
      end;
    end;
  
  for y:= 1 to N do begin
    for x:= 1 to M do
      write(s[y][x] :5);
   writeln;  
  end;
   
end.