Переполнение стека - Pascal - Ответ 85004

uses graph;
Type ukaz=^tochka;
tochka=record  {Элемент списка-координаты точки}
 x:integer;
 y:integer;
 next:ukaz;
end;
 
var driver,mode:integer;
    x,y,x2,y2,a,b:integer;
    p,hvost,o:ukaz;  {p-голова, hvost-хвост, o-для удаления из головы}
    newcolor,oldcolor,grancolor:integer;
 
begin
randomize;
initGraph(driver,mode,'');
{==========Рисуем 6-ти угольник в случайном месте=====================}
 x:=random(340);
 y:=random(240);
 x2:=x+50;
 y2:=y;
 line(x,y,x2,y2);
 line(x2,y2,x2,y2+30);
 line(x2,y2+30,x2+50,y2+30);
 line(x2+50,y2+30,x2+50,y2+70);
 line(x,y+70,x2+50,y2+70);
 line(x,y,x,y+70);
 
{===============================}
 grancolor:=15; {Цвет границы}
 oldcolor:=0; {Старый цвет};
 newcolor:=Blue; {Цвет закраски}
 
 new(p);  {Помещаем первую затравочную точку}
 p^.x:=x+1;
 p^.y:=y+1;
 hvost:=p;
 a:=p^.x;
 b:=p^.y;
 
  while hvost<>nil do
   begin
    putPixel(a,b,red);
     if (GetPixel(a+1,b)<>grancolor) and (Getpixel(a+1,b)<>newcolor) then
      begin
       new(hvost^.next);
       hvost:=hvost^.next;
       hvost^.x:=a+1;
       hvost^.y:=b;
      end;
 
    if (GetPixel(a-1,b)<>grancolor) and (Getpixel(a-1,b)<>newcolor) then
      begin
       new(hvost^.next);
       hvost:=hvost^.next;
       hvost^.x:=a-1;
       hvost^.y:=b;
      end;
 
    if (GetPixel(a,b-1)<>grancolor) and (Getpixel(a,b-1)<>newcolor) then
      begin
       new(hvost^.next);
       hvost:=hvost^.next;
       hvost^.x:=a;
       hvost^.y:=b-1;
      end;
 
    if (GetPixel(a,b+1)<>grancolor) and (Getpixel(a,b+1)<>newcolor) then
      begin
       new(hvost^.next);
       hvost:=hvost^.next;
       hvost^.x:=a;
       hvost^.y:=b+1;
      end;
 
      o:=p^.next;
      dispose(p);
      p:=o;
 
      a:=p^.x;
      b:=p^.y;
 
 
   end;  {while}
 
 
 
readln;
closeGraph;
end.