Сортировка массива по возрастанию

program lab; 
 
var
  a, b, x, p, c: array [1..100] of real; 
  pr: array [1..100] of string; 
  i, n: integer; 
begin
  write('Введите количество пар Х и Р: '); 
  Readln(n); 
  
  for i := 1 to n do 
  begin
    write('Введите значение P: '); 
    Readln(p[i]); 
    
    write('Введите значение X: '); 
    Readln(x[i]); 
    
     if (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5) >= 0 then  
   begin                                                                                                  
    if (sin (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5)) >= 0                            
    then begin                                                                                        
      a[i] := (sin (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5));  
      if (ln(x[i]*x[i]*x[i]) + abs(x[i]*x[i]*x[i]*x[i] - 2*p[i])) >= 0                                                            
      then begin 
        b[i] := (x[i]*x[i] - exp (ln(x[i]*x[i]*x[i]) + abs(x[i]*x[i]*x[i]*x[i] - 2*p[i])));
        if b[i] <> 0              
        then begin    
            c[i] := (a[i])/(b[i]);  
           end                                      
        else writeln ('Ошибка.Знаменатель равен нулю.') end 
       else writeln ('Ошибка.Значение степени меньше нуля.') end 
      else writeln ('Ошибка.Числитель меньше нуля.') end 
    else writeln ('Ошибка.Под корнем стоит число меньше нуля.'); 
  end;
 
  begin
    writeln('X | P | C | Примечания');
    for i := 1 to n do 
    if (pr[i] = '') then 
      writeln(x[i], ' | ', p[i], ' | ', c[i], ' | ')
       else 
      writeln(x[i], ' | ', p[i], ' | ', ' | ', pr[i])   
  end
  
end.