Работа с файлами

program tt;
uses crt;
var f:file of real;
    x,y,y1,xn,xk,mx:real;
    n,i,k:integer;
begin
assign(f,'input1.dat');
reset(f);
n:=filesize(f) div 2;//количество значений
//читаем первое значение
read(f,x); //х
seek(f,n);
read(f,y);//y
writeln('x=',x:6:2,' y=',y:6:2);
mx:=0;//максимальное значение периода,
      // может значения х не через равный интервал
k:=0;//считаем полупериоды, по смене знака
y1:=y; //запомним 1 значение y
for i:=1 to n-1 do
 begin
  seek(f,i);//читаем следующее х
  read(f,x);
  seek(f,i+n);//y
  read(f,y);
  writeln('x=',x:6:2,' y=',y:6:2);
  if y*y1<0 then
   begin
    k:=k+1;//если у соседних разный знак
    if k mod 2=0 then xn:=x  //если k четное - начало полупериода
    else xk:=x; //иначе конец
    if xk-xn>mx then mx:=xk-xn;
   end;
  y1:=y //запоминаем очередное
 end;
close(f);
mx:=2*mx;
write('Вычисленный период функции=',mx:0:3)
end.