Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
VAR FL:TEXTFILE;
l:string;
i:integer;
xmass,itrmass:array [1..100] of real;
begin
{...}
ASSIGNfile(FL,'results.txt');
reset(fl);
readln(fl,l);
i:=1;
while L[i]<>' ' do begin
xmass[i]:=strtoint(L[1]);
i:=i+1;
end;
{...}
end;В файле хранилась последовательность вещественных чисел... Такой вот вариант ее оттуда выкорчевать о_О
Запостил: 
guest,
(Updated )
А если всё написаное автором верно, то это просто баг или даже 2 бага:)