Индекс находился вне границ массива

uses graphABC, FormsABC, ABCButtons;
var gx, gy, x0, y0, x1, y1, r, k, i:integer;
x, y,g,b: real;
d:=new ButtonABC(20,20,70,'Линейная',clWhite);
procedure Line;
   begin
    TextOut(20,60,'Введите число k');
  read(g);
  TextOut(20,60,'Введите число b');
  read(b);
  TextOut(20,60,'                              ');
 
  x:= -4;
   y:=g*x+b;
  
  x1:=x0+round(x)*k;           
  y1:=y0-round(y)*k;
  MoveTo(x1,y1);
  while x<5 do begin
  y:=g*x+b;
  
  x1:=x0+round(x)*k;            //координата относительно центра
  y1:=y0-round(y)*k;
  
  LineTo(x1,y1);
  
  setpencolor(clblue);
  circle(x1, y1, r);
  floodfill(x1, y1,clblue);
  MoveTo(x1,y1);
  x:=x+1;
  end;
  end;
  
BEGIN
  SetWindowTitle('Построение графиков функции');
  gx:=1000;             //размер окна
  gy:=1000;
  k:=23;                //масштаб
  r:=2;                 //радиус точек
  SetFontSize(10); //настройка текста
  setwindowsize(gx,gy);
  x0:=gx div 2;         //середина
  y0:=gy div 2;
  
  line(0, y0, gx, y0);          //ось x
  line(gx, y0, gx-10, y0+10);
  line(gx, y0, gx-10, y0-10);
  textout(980,470,'X');
    
  line(x0, 0, x0, gy);          //ось y
  line(x0, 0, x0+10, 10);
  line(x0, 0, x0-10, 10);
    textout(470,10,'Y');
    
 i:=-20;                       //цикл оси деления x
 While i < 21 do begin
   line(x0+i*k, y0-20, x0+i*k, y0+6);
   textout(x0+i*k, y0-20, i);
                                //деления оси y
   if i<>0 then begin
   line(x0+10, y0+i*k, x0-10, y0+i*k);
   textout(x0+10, y0-i*k, i);
     end;
     inc(i);
   end;
 
    SetFontstyle(fsBold);
    SetFontSize(15);
 
     
    d.OnClick := Line;
    
end.