Произвести сортировку элементов квадратной матрицы в соответствии с заданной схемой

uses crt;
var
n,x,y: integer;
begin
 clrscr;
   writeln('введите n');
     readln(n);        {считывается размер массива}
       writeln('введите координаты:(строка,столбец)');
         readln(x,y);      {считывается строка, затем столбец}
   if (x<0) or (y<0) or (x>n) or (y>n) then  {ограничение на входные данные }
     begin
       writeln('неверные данные');
       readln;
       exit;
     end;
 
 if (x=n) and (y=n) and ((x<>1)and(y<>1)) then  
    y:=y-1;  
 
 if (x=1) and (y=1) then
   begin
   writeln('нет следующего, окончание анализа');readln;exit; 
   end;
 
 if (n mod 2=0) then    
 
   begin   if ((x=n)or(x=1)) and (y mod 2=0) and (x<>y) then
      y:= y-1
      else  if ((x+y)mod 2=0) and ((x<>n)or(y<>n)) and((x-y)<=0) then
       begin
           x:=x+1; 
           y:=y-1; 
       end
      else  if ((y=n)or(y=1)) and (x mod 2=1) then
      x:=x-1
      else  if ((x+y)mod 2=1)  then
      begin
         x:=x-1;
         y:=y+1;
      end;
 
   end
 
  else                      
 
   begin 
        if ((x+y) mod 2=1) and (x<>1) and (y<>n) then
      begin
         x:=x-1;
         y:=y+1;
      end
      else  if ((y=1)and(x mod 2=1)) or ((y=n)and(x mod 2=0)) then
      x:=x-1
      else  if ((x+y)mod 2=0) and (x<>n) and (y<>1) then
       begin 
          x:=x+1;
          y:=y-1;
       end 
      else if (((x=n)and(y mod 2=1)) or ((x=1)and(y mod 2=0))) and  (y<>n) then y:=y-1;
   end;
 
writeln(‘next=’,x,’ ‘,y);
readln;
end.

uses crt;
var a:array[1..50,1..50] of integer;
    i,n,j,l,m,f,beg,en,k,k1,q,x,matrixkol,matrixstr,matrixkolnext,matrixstrnext:integer;
procedure Next(matrixstr, matrixkol: integer;
var matrixstrnext, matrixkolnext:integer);
begin
 if (matrixstr=n) and (matrixkol=n) and ((matrixstr<>1)and(matrixkol<>1)) then
   matrixkolnext:=matrixkol-1; {*Ё¦*Ё© Їа*ўл© гЈ®« ¬*ваЁжл}
 
 
 
 if (n mod 2=0) then    {ЇаЁ зҐв*®¬ а*§¬ҐаҐ ¬*ваЁжл}
 
   begin
 
     if ((matrixstr=n)or(matrixstr=1)) and (matrixkol mod 2=0) and (matrixstr<>matrixkol) then
      matrixkolnext:=matrixkol-1
      else
 
     if ((matrixstr+matrixkol)mod 2=0) and ((matrixstr<>n)or(matrixkol<>n)) and((matrixstr-matrixkol)<=0) then
      begin
        matrixstrnext:=matrixstr+1;
        matrixkolnext:=matrixkol-1;
      end
     else
 
     if ((matrixkol=n)or(matrixkol=1)) and (matrixstr mod 2=1) then
      matrixstrnext:=matrixstr-1
      else
 
     if ((matrixstr+matrixkol)mod 2=1)  then
      begin
        matrixstrnext:=matrixstr-1;
        matrixkolnext:=matrixkol+1;
      end;
 
   end
 
  else
 
   begin
 
     if ((matrixstr+matrixkol) mod 2=1) and (matrixstr<>1) and (matrixkol<>n) then
      begin
        matrixstrnext:=matrixstr-1;
        matrixkolnext:=matrixkol+1;
      end
     else
 
     if ((matrixkol=1)and(matrixstr mod 2=1)) or ((matrixkol=n)and(matrixstr mod 2=0)) then
      matrixstrnext:=matrixstr-1
      else
 
     if ((matrixstr+matrixkol)mod 2=0) and (matrixstr<>n) and (matrixkol<>1) then
      begin
       matrixstrnext:=matrixstr+1;
       matrixkolnext:=matrixkol-1;
      end
      else
 
     if (((matrixstr=n)and(matrixkol mod 2=1)) or ((matrixstr=1)and(matrixkol mod 2=0))) and  (matrixkol<>n) then
      matrixkolnext:=matrixkol-1;
 
   end;
 
 
 
   begin
   clrscr;
   randomize;
   writeln('input size');
   readln(n);
  while (n<2) or (n>50) do
    begin
      writeln('wrong size. try again');
      readln(n);
    end;
    writeln('input first and last number');
    readln(beg,en);
      while (en<=beg) do
       begin
       writeln('error. try again');
       readln(beg,en);
       end;
 for i:=1 to n do
 for j:=1 to n do
       a[i,j]:=random(en-beg+1)+beg;
    for i:=1 to n do
    for j:=1 to n do
       begin
        writeln(a[i,j]:3);
        writeln;
       end;
   matrixstr:=n;
   matrixkol:=n;
  for q:=n*n downto 1 do
    begin
     for k:=n downto 1 do
       for k1:=n downto 1 do
         begin
           if (matrixstrnext<>1) or (matrixkolnext<>1) then
             begin
              next(matrixstr,matrixkol,matrixstrnext,matrixkolnext); { сортировка по схеме}
              for l:=1 to n-1 do
               begin
                 f:=i;
                  for m:=i+1 to n do               {   сортировка выбором
                  if a[m]<a[f] then
                   f:=m;
                   x:=a[i];
                   a[i]:=a[f];
                   a[f]:=x;                                         }
               end;
            end;
        end;
    end;
end.