Траектория

[Leshiy1]

Здравствуйте всем, помогите отсортировать по выделенной траектории
Program SortMatr;

 Uses Crt;
 const n=7; m=8;
 var i,j,x,y,ym,xm,max,kt,xp,yp,b:integer;
     A:array[0..n-1,0..m-1] of integer;
 begin ClrScr; Randomize;
   for y:=0 to n-1 do
   begin writeln;
     for x:=0 to m-1 do
     begin
       A[y,x]:=random(10); write( A[y,x]:3);
     end;
   end;
 writeln;
 ym:=0; xm:=0; max:=A[ym,xm];
 for y:=0 to n-1 do
  for x:=0 to m-1 do
  if max<A[y,x] then begin max:=A[y,x];
     ym:=y; xm:=x; end;
     writeln;
     write('max=',max, ' xm=',xm, ' ym=',ym);

  if ym<xm then kt:=2*ym+1
           else kt:=xm+ym+1;

  for i:=0 to kt-1 do
  begin
    yp:=6; xp:=xm;
    for j:=0 to kt-2 do
    begin
      if j<ym
      then begin x:=xp;   y:=yp-1; end
      else begin x:=xp+1; y:=yp-1; end;

    if A[y,x]<A[yp,xp]
    then
    begin b:=A[y,x]; A[y,x]:=A[yp,xp]; A[yp,xp]:=b; end;
    xp:=x; yp:=y;
    end; end;

  writeln;
    for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do write(A[i,j]:3);
  writeln;
  end;


 Readln;
 End.

Вариант 8