Ошибка 215 при выполнении программы

PROGRAM ret;
TYPE PROC=FUNCTION(X:real):real;
  TYPE ODN=array [1..5] of real;
  VAR A,B,X,Fa,Fb:real;
              k,y:integer;
              EPS:ODN;
              fp1,fp2,fp3:text;
  FUNCTION FS(x1:real):real;FAR;
  Begin
    FS:=1/(1.2*sin(x1)/cos(x1)+sqrt(x1+1))-x1;
  End;
  PROCEDURE SR(AN,BK,E:real;F:PROC;VAR KN:integer;VAR x1:real);
  VAR Fx1,FAN:real;
  Begin
    KN:=0;
    FAN:=F(AN);
    x1:=(AN+BK)/2;
    REPEAT
      KN:=KN+1;
      Fx1:=F(x1);
      IF Fx1*FAN<0 THEN
        BK:=x1
      ELSE
        begin
          AN:=x1;
          FAN:=Fx1;
        end;
    UNTIL abs(AN-BK)<=E
   end;
BEGIN
  ASSIGN(fp2,'dr.pas');
  ASSIGN(fp1,'rd.pas');
  ASSIGN(fp3,'rrt.pas');
  RESET(fp1);
  RESET(fp2);
  REWRITE(fp3);
  read(fp1,A,B);
  FOR Y:=1 TO 5 DO
    read(fp2,EPS[Y]);
    readln(fp2);
  WRITELN(fp3,' ':35,'ђ');
  FA:=FS(A);
  FB:=FS(B);
  IF FA*FB<0 THEN
    writeln (fp3,'*Ґв')
  ELSE
    FOR Y:=1 TO 5 DO
      begin
        SR(A,B,EPS[Y],FS,k,x);
        writeln(fp3,'x= ',x:8:4,' ':2,'k= ',k);
      end;
CLOSE (fp1);
CLOSE(fp2);
CLOSE(fp3);
END.