Ошибка "Нет перегруженной подпрограммы с такими типами параметров"

program 9; 
var 
 
a,b,x,p,c: array [1..50] of char; 
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]=0) 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.

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.