Вывод результата в файл

var x,y,a,xn,xk,dx,ys,yp,kyp,kyn,ymax,ymin,max,min,p:real;
begin
a:=1.74;
xn:=0.7;
xk:=2;
dx:=0.1;
ys:=0;
yp:=0;
min:=100;
max:=-100;
while <=xk do 
 begin
 x:=x+dx;
 if x<1.4 then y:=pi*exp(3*ln(x))-exp(a*ln(x))/sqr(x)
 else if x=1.4 then y:=a*exp(exp(3*ln(x)))+exp(5*ln(a))*sqrt(sqr(x))
 else if x>1.4 then y:=ln(x+sqrt(abs(x))-a))/ln(3);
 ys:=ys+y;
 yp:=ys*y;
 if (y<0) and (y>max) then max:=y;
 if (y>=0) and (y<min) then min:=y;
 if y>0 then kyp:=kyp+1;
 else kyn:=kyn+1;
 while y>max do
 ymax:=y;
 while y<ymin do
 y min:=y;
 
 writeln('x= ',x:8:2,'y= ',y:8:2);
 end;
 writeln('ys= ',ys:8:2,'yp= ',y:8:2);{summa I pozitivnoe znachenie}
 writeln('kyp= ',kyp:8:2,'kyn= ',kyn:8:2);{kolichestvo polozitelnuh I otricatelnih}
 writeln('ymax= ',ymax:8:2,'ymin= ',ymin:8:2);{max I min znachenie}
 writeln('max= ',max:8:2,'min= ',min:8:2);{max otricatelnoe I min polozitelnoe}
readln;
end.

  WriteLn('Результаты в файле output.txt');
  Assign(output,'output.txt'); Rewrite(output);
  ...
  Close(output);
end.

var
  f: Text;
...
  Assign(f,'output.txt'); Reset(f);
...
    Write(... { на экран }
    Write(f,... { в файл }
...
  Close(f);