Откуда берется ошибка 207 (ошибочная операция с плавающей запятой)

[sysop999]

Не могу понять в чем проблема, не дает присвоить результат именно через sqrt, в последней формуле

PROGRAM Lab5_7;
uses crt, graph;
const num = 50; a = 10;
type
point = record
p_x,p_y1,p_y2 : real;
end;
var
mass_point : array [1..num] of point;
i,j:integer;
temp_mass : array [1..num+2] of real;
k:real;
begin
clrscr;
{------ enter x value without value sqr(a)}
for i:=1 to num+2 do
begin
temp_mass[i]:=round (0-(num/2)+i-1);
end;
j:=0;
for i:=1 to num+2 do
begin
if sqr(temp_mass[i])<>sqr(a) then
begin
j:=j+1;
mass_point[j].p_x:=temp_mass[i];
end;
end;
{------ calculation y value}
for i:=1 to num do
begin
mass_point[i].p_y1:=sqrt((sqr(a)*sqr(mass_point[i].p_x))/(sqr(mass_point[i].p_x)-sqr(a)));
end;


for i:=1 to num do write ('i=',i, ' ',mass_point[i].p_x:5:2,' ');
writeln ('');
for i:=1 to num do write ('i=',i, ' ',mass_point[i].p_y1:5:2,' ');

readln;

end.

[TinMan]

У тебя mass_point[1].p_x равна -25. А корень из отрицательного числа, извини, не извлекается (в пределах действительных чисел).
Ты тащишь это число из массива temp_mass, а его задаешь формулой:

   temp_mass[i]:=round (0-(num/2)+i-1);

При num=50 и i=1 получаешь -25.
А почему такая формула - это я не знаю, думай сам )).