Exitcode = 200 . Иногда появляется эта ошибка, в чем проблема?

program lb3;
uses wincrt,crt,graph;
var
        x,y,mx,N,k:integer;
        vikhod,check:boolean;
        a,b,n1,pol,m1,ee,m2,S,t1,t2,pg,ll,error:double;
procedure Menu();
var key:char;
 begin
  clrscr;
  writeln (' 1. Change Input Values');
  writeln (' 2. Evaluate Values');
  writeln (' 3. Exit.');
  gotoxy(x,y);
  while key<>#013 do
   begin
key:=readkey;
if key=#0 then
begin
key:=readkey;
        if key=#080 then
                if y=mx then y:=1
                else y:=y+1;
        if key=#072 then
                if y=1 then y:=mx
                else y:=y-1;
        gotoxy(x,y);
end;
 
  end;
 end;
Function F(z:double):double;
 begin
  F:=5*z*z-465*z+454;
 end;
Function F2(z:double):double;
 begin
        F2:=((5*z*z*z)/3)+((-465*z*z)/2)+(454*z);
 end;
begin
 vikhod:=false;
 mx:=3;
 check:=false;
 while vikhod=false do
  begin
        clrscr;
        x:=1; y:=1;
        Menu();
 
        case y of
         1:begin
            clrscr;
            writeln('Enter lower integration limit : ');
            readln(a);
            writeln('Enter the upper limit of integration : ');
            readln (b);
            writeln ('Number of breaks : ');
            readln (n1);
            check:=true;
           end;
         2:begin
            clrscr;
            if check=true then
            begin
             pol:=(b-a)/n1;
             N:=Trunc(pol);
             k:=1;
             while k <= N-1 do
             begin
                m1:=a+(k-1)*n1;
                ee:=a+(k*n1);
                m2:=a+(k+1)*n1;
                S:=S+(F(m1)+4*F(ee)+F(m2));
                k:=k+2;
             end;
             t1:=(n1/3)*S;
             t2:=F2(b)-F2(a);
             if t2 >t1
              then
                pg:=t2-t1
              else
                pg:=t1-t2;
             error:=pg/t1;
             pg:= ((b-a)*(b-a)*(b-a))/(24*n1*n1);
             if (t2<0) then t2:=F2(a)-F2(b);
             if(a>=(0.98)) and (b<92) then t2:=0;
             writeln('Result: ',t2:3:5 );
             writeln('Error: ', pg:3:5 );
             writeln('Success. Press Any Key.');
             readln();
            end
            else begin
             writeln('press enter for bock and enter limits');
             readln();
            end;
           end;
         3: Exit;
        end;
 
  end;
end.