Pascal. Помогите исправить программу. В ответе выдает нули, а я не могу найти ошибку.

Помогите исправить программу. В ответе выдает нули, а я не могу найти ошибку.
Программа:
Program Var_21;
uses CRT;
var x,p: array [1..10] of real;
FA,FB,C:array [1..10] of real;
O: array [1..10] of string;
rec: array [1..10] of string;
i,n: integer;
BEGIN
CLRSCR;
for i:= 1 to n do O[i]:='';
writeln (' Ввести количество пар x и p '); readln(n);
for i:= 1 to n do
begin
writeln (' Ввести значение x и p, удовлетворяющие ОДЗ ');
Writeln ('ввести x');
readln(x[i]);
writeln('Ввести p');
readln (p[i]);
end;
if (p[i]*x[i])<0 then O[i]:=(' Произведение x и p не может быть отрицательным ')
else begin
if (sqrt(2*p[i]*x[i])+3.5*x[i]*x[i]-10)<0
then O[i]:=(' Расчет невозможен, выражение под квадратным корнем не может быть меньше нуля ')
else
begin
if (2*p[i]-6*x[i]+1)<0
then o[i]:= (' Аргумента логарифма не может быть меньше нуля ')
else begin
FA[i]:=sqrt((sqrt(2*p[i]*x[i])+3.5*x[i]*x[i]-10));
if (cos(abs(ln(2*p[i]-6*x[i]+1))*cos(abs(ln(2*p[i]-6*x[i]+1)))))-1=0
then O[i]:= ('Знаменатель дроби не может быть равен нулю') else
FB[i]:=(cos(abs(ln(2*p[i]-6*x[i]+1))*cos(abs(ln(2*p[i]-6*x[i]+1)))))-1;
if FB[i]<>0 then begin
C[i]:=FA[i]/FB[i];
end; end;
end;
rec[1]:='x';
rec[2]:='p';
rec[3]:='Ответ';
rec[4]:='Примечание';
for i:= 1 to 4 do
write (rec[i]:20);
writeln ;
for i:= 1 to n do
begin
if O[i]='' then
writeln (x[i]:20, p[i]:20, C[i]:20) else
writeln (x[i]:20, p[i]:20, C[i]:20, O[i]:30);
end; end;
Writeln (' Для выхода нажмите любую клавишу ');
repeat until keypressed;
end.