Ошибка времени выполнения. Построить график функции y(x) и таблицу значений y(x) с шагом измерения аргумента h

uses graphABC;
function F(x:real):real;
begin
F:=(5-x)/(x-3);
end;
var xn,xk,x,h,mx,my:real;
    x1,y1:array[1..105] of real;
    n,m,i,x0,y0,y:integer;
    st:string;
begin
xn:=0;
xk:=pi;
h:=0.03;
{заполнение таблицы значений}
x:=xn;
n:=0;
m:=0;
while x<=xk do
 begin
  n:=n+1;
  x1[n]:=x;
  y1[n]:=F(x1[n]);
  if (y1[n]<0) and(m=0)then m:=n;
  x:=x+h;
 end;
 setwindowsize(640,500);
{начало координат}
x0:=windowwidth div 3;
y0:=windowheight div 2;
{масштаб по осям}
mx:=(windowwidth-x0-30)/xk;
my:=(y0-20)/50;
{координатная сетка}
line(x0,y0,windowwidth,y0);
textout(windowwidth-25,y0-15,'X');
line(x0,2*y0,x0,0);
textout(x0+10,5,'Y');
textout(x0-20,y0,'0');
for i:=1 to 50 do
 begin
  line(x0+round(mx*i/10),y0+3,x0+round(mx*i/10),y0-3);
  str(i*0.1:0:1,st);
  if i mod 2=0 then
   begin
    textout(x0+round(mx*i/10),y0+10,st);
   end;
  if i mod 5=0 then
   begin
    line(x0+3,y0-round(my*i),x0-3,y0-round(my*i));
    line(x0+3,y0+round(my*i),x0-3,y0+round(my*i));
    str(i,st);
    textout(x0-30,y0-round(my*i),st);
    textout(x0-30,y0+round(my*i),'-'+st);
   end;
 end;
{график}
y:=round(my*y1[1]);
moveto(x0+round(x1[1]*mx),y0-round(y1[1]*my));
setpencolor(clGreen);
circle(x0+round(x1[1]*mx),y0-round(y1[1]*my),2);
for i:=1 to m-1 do
 begin
  setpencolor(clRed);
  lineto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
  setpencolor(clGreen);
  circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);
  x:=x+h;
 end;
y:=round(my*y1[m+1]);
moveto(x0+round(x1[m]*mx),y0-round(y1[m]*my));
setpencolor(clGreen);
circle(x0+round(x1[m]*mx),y0-round(y1[m]*my),2);
for i:=m+1 to n do
 begin
  setpencolor(clRed);
  lineto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
  setpencolor(clGreen);
  circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);
  x:=x+h;
 end;
setpencolor(clBlue);
line(x0+round(x1[m]*mx),0,x0+round(x1[m]*mx),2*y0);
setpencolor(clRed);
textout(x0+200,0,'График функции y=(5-x)/(x-3)');
textout(x0+200,20,'интервал h=0.03');
textout(x0+200,40,'Васильев Е.А. Вариант №6');
{построение таблицы}
setpencolor(clBlack);
textout(40,0,'Значения аргумента');
textout(60,20,'и функции');
line(10,50,10,50+(n div 2+2)*18);
line(40,50,40,50+(n div 2+2)*18);
line(90,50,90,50+(n div 2+2)*18);
line(120,50,120,50+(n div 2+2)*18);
line(170,50,170,50+(n div 2+2)*18);
for i:=0 to n div 2+2 do
line(10,50+i*18,170,50+i*18);
textout(25,55,'X');
textout(60,55,'Y');
textout(95,55,'X');
textout(140,55,'Y');
for i:=1 to n div 2+1 do
 begin
  str(x1[i]:0:2,st);
  textout(15,55+18*i,st);
  str(y1[i]:0:2,st);
  textout(50,55+18*i,st);
 end;
for i:=n div 2+1 to n do
 begin
  str(x1[i]:0:2,st);
  textout(95,55+18*(i-n div 2),st);
  str(y1[i]:0:2,st);
  textout(130,55+18*(i-n div 2),st);
 end;
end.

{график}
i:=1;
moveto(x0+round(x1[1]*mx),y0-round(y1[1]*my));
setpencolor(clGreen);
circle(x0+round(x1[1]*mx),y0-round(y1[1]*my),2);
while x1[i]<3-h do
 begin
  setpencolor(clRed);
  lineto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
  setpencolor(clGreen);
  circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);
  i:=i+1;
 end; 
i:=i+1; //пропускаем интервал где х-3=0
moveto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
setpencolor(clGreen);
circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);
while i<n do
 begin
  setpencolor(clRed);
  lineto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
  setpencolor(clGreen);
  circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);
  i:=i+1;
 end;