Ошибка "Нет перегруженной подпрограммы с такими типами параметров" - PascalABC.NET (24426)

program p9; 
 
var
  a, b, x, p, c: array [1..50] of real; 
  pr: array [1..50] of string; 
  i, n: integer; 
begin
  writeln('Введите количество пар Х и Р'); 
  Readln(n); 
  
  for i := 1 to n do 
  begin
    writeln('Введите значение P'); 
    Readln(p[i]); 
    
    writeln('Введите значение 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]; pr[i] := ('0')
          end 
          else c[i] := 0; pr[i] := ('Ошибка.Знаменатель равен нулю.') end 
        else c[i] := 0; pr[i] := ('Ошибка.Значение степени меньше нуля.') end 
      else c[i] := 0; pr[i] := ('Ошибка.Числитель меньше нуля.') end 
    else c[i] := 0; pr[i] := ('Ошибка.Под корнем стоит число меньше нуля.');
  end;
  for i := 1 to n do 
  begin
    writeln(' X | P | C | Примечания');
    if (pr[i] = '') then 
    begin
      writeln(x[i]:5:3, '|', p[i]:5:3, '|', c[i]:5:3, '|')
    end 
    else 
    begin
      writeln(x[i]:5:3, '|', p[i]:5:3, '|', '|', pr[i])
    end
  end
end.