Сортировка по абсолютной величине

program Lab_9;
uses crt;
var i,n,d,k:integer;
x:array[1..100] of real;
p:array[1..100] of real;
c:array[1..100] of real;
sort:array[1..100] of integer;
r:array[1..100] of integer;
begin
clrscr;
writeln('Введите количество пар');
readln(n);
for i:=1 to n do begin
    writeln('Введите x и p');
    write('x[i]=');readln(x[i]);
    write('p[i]=');readln(p[i]);
end;
clrscr;
for i:=1 to n do
   begin
    sort[i]:= round(abs(x[i] - p[i]));
   end;
   for i:= 1 to n - 1 do
   for d:= 1 to n - i do
    begin
     if sort[d] < sort[d+1] then
      begin
       k:= sort[d];
       sort[d]:= sort[d+1];
       sort[d+1]:= k;
      end;
    end;
for i:=1 to n do
    if sqr(p[i])<>0 then
     if (sqr(x[i])+p[i]+6.5)>0 then
      if (x[i]+1)>=0 then
       if (abs(p[i])-sqrt(sqrt(x[i]+1)))*(sin(abs(p[i])-abs(x[i]))+1.5)<>0 then
       c[i]:=((exp(sqr(x[i])/sqr(p[i]))+sqr(ln(sqr(x[i])+p[i]+6.5))))/((abs(p[i])-sqrt(sqrt(x[i]+1)))*(sin(abs(p[i])-abs(x[i]))+1.5))
       else r[i]:=1
      else r[i]:=2
     else r[i]:=3
    else r[i]:=4;
if i>0 then
begin
     writeln('--------------------------------------');
     writeln('| S| X | P | C |  Примечание |');
     writeln('--------------------------------------');
end;
for i:=1 to n do
    begin
         if r[i]=0 then
            begin
                 writeln('| ',sort[i]:2,'|',x[i]:2:2,'|',p[i]:2:2,'|',c[i]:0:2,'| Примечаний нет|');
                 writeln('--------------------------------------');
            end;
         if r[i]=1 then
            begin
                 writeln('| ',sort[i]:2,'| ',x[i]:2:3,' |',p[i]:2:3,'|    На ноль делить нельзя  |');
                 writeln('--------------------------------------');
            end;
         if r[i]=2 then
            begin
                 writeln('| ',sort[i]:2,'| ',x[i]:2:2,'| ',p[i]:2:2,'|  Подкоренное выражение <=0 |');
                 writeln('--------------------------------------');
            end;
         if r[i]=3 then
            begin
                 writeln('| ',sort[i]:2,'| ',x[i]:2:2,'| ',p[i]:2:2,'|  Н.У. ОДЗ ln |');
                 writeln('--------------------------------------');
            end;
         if r[i]=4 then
            begin
                 writeln('| ',sort[i]:2,'| ',x[i]:2:2,'| ',p[i]:2:2,'| На ноль делить нельзя |');
                 writeln('--------------------------------------');
            end;
     end;
writeln('Нажмите любую кнопку для выхода');
readkey;
end.

  for i:=1 to n do sort[i]:=i;
  for i:=1 to n-1 do for d:=1 to n-1 do
    if Abs(x[sort[d]]-p[sort[d]])<Abs(x[sort[d+1]]-p[sort[d+1]]) then begin
      k:=sort[d]; sort[d]:=sort[d+1]; sort[d+1]:=k;
    end;
. . .
  for i:=1 to n do
    WriteLn(x[sort[i]],' ',p[sort[i]]);

  for i:=1 to n-1 do for d:=1 to n-1 do
    if Abs(x[d]-p[d])<Abs(x[d+1]-p[d+1]) then begin
      t:=x[d]; x[d]:=x[d+1]; x[d+1]:=t;
      t:=p[d]; p[d]:=p[d+1]; p[d+1]:=t;
    end;