Калейдоскоп - исправить недочеты в коде

program kaleidoskop;
uses graphabc;
type
   pr=record
        k,b:real;
        end;
   pcol=^col;
   col=record
      c:color;                        {вот тут вылетает}
      n:pcol;
      end;
var p:array[0..99] of pr;
    n,i,x1,x2,y1,y2:integer;
    c,g:color;                        {и вот тут}
    
procedure myline(x1,y1,x2,y2:integer;p:boolean);
var dx,dy,x,y:real;
    l,i:integer;
begin
if abs(x1-x2)>abs(y1-y2) then begin
                                dx:=1;
                                dy:=abs((y2-y1)/(x2-x1));
                                y:=y1; x:=x1;
                                l:=abs(x2-x1);
                                for i:=0 to l do
                                   begin
                                     if (WindowWidth>x)and(x>0)and(WindowHeight>y)and(y>0)and((p)or(getpixel(round(x),round(y))=c)) then setpixel(round(x),round(y),pencolor);
                                     if x2>x1 then x:=x+dx else x:=x-dx;
                                     if y2>y1 then y:=y+dy else y:=y-dy;
                                   end;
                              end
                         else begin
                                dx:=abs((x2-x1)/(y2-y1));
                                dy:=1;
                                y:=y1; x:=x1;
                                l:=abs(y2-y1);
                                for i:=0 to l do
                                   begin
                                     if (WindowWidth>x)and(x>0)and(WindowHeight>y)and(y>0)and((p)or(getpixel(round(x),round(y))=c)) then setpixel(round(x),round(y),pencolor);
                                     if x2>x1 then x:=x+dx else x:=x-dx;
                                     if y2>y1 then y:=y+dy else y:=y-dy;
                                   end;
                              end;
end;
    
procedure paint(a:pr);
const z=1000;
begin
myline(0,round(a.b),z,round(a.k*z+a.b),false);
end;
 
function fline(x1,y1,x2,y2:integer):pr;
var v:pr;
begin
v.k:=(y2-y1)/(x2-x1);
v.b:=y1-x1*v.k;
fline:=v;
end;
 
procedure krush;
var a1,a2:pcol;
    x,y:integer;
    c:color;
    b:boolean;
begin
  new(a1);
  a1^.n:=nil;
  a1^.c:=g;
  a2:=a1;
  new(a1);
  a1^.n:=a2;
  a1^.c:=rgb(0,0,0);
  for x:=100 to 300 do
    for y:=173 to 346 do
      begin
        b:=true;
        c:=getpixel(x,y);
        a2:=a1;
        while a2<>nil do
          begin
            if a2^.c=c then b:=false;
            a2:=a2^.n;
          end;
        if b then begin
                    c:=rgb(random(256),random(256),random(256));
                    a2:=a1;
                    new(a1);
                    a1^.n:=a2;
                    a1^.c:=c;
                    FloodFill(x,y,c);
                  end;
      end;
  while a1<>nil do
  begin
    a2:=a1^.n;
    dispose(a1);
    a1:=a2;
  end;
end;
 
procedure sim(a:pr;g1,g2:integer;b:boolean);
var x,x1,y:real;
    a1:pr;
    i:integer;
begin
  if g1>g2 then begin i:=g2; g2:=g1; g1:=i; end;
  a1.k:=-1/a.k;
  x:=g1;
  while x<g2 do
  begin
    x1:=0;
    y:=x*a.k+a.b;
    a1.b:=y-a1.k*x;
    while x1<200 do
    begin
      if b then begin
      if (round(x+x1)>0)and(round(x+x1)<402)and(round(a1.k*(x+x1)+a1.b)>0)and(round(a1.k*(x+x1)+a1.b)<348) then setpixel(round(x+x1),round(a1.k*(x+x1)+a1.b),getpixel(round(x-x1),round(a1.k*(x-x1)+a1.b)));
       end else begin 
      if (round(x-x1)>0)and(round(x-x1)<402)and(round(a1.k*(x-x1)+a1.b)>0)and(round(a1.k*(x-x1)+a1.b)<348) then setpixel(round(x-x1),round(a1.k*(x-x1)+a1.b),getpixel(round(x+x1),round(a1.k*(x+x1)+a1.b)));
       end;
      x1:=x1+0.4;
    end;
    x:=x+0.4;
  end;
end;
 
procedure simall(x,y:integer);
var i,j:integer;
begin
  y:=y div 2;
  for i:=0 to x do
     for j:=0 to y-1 do
     setpixel(i,y-j-1,getpixel(i,y+j));
end;
 
begin
randomize;
setwindowsize(402,348);
g:=clgreen;
c:=rgb(255,255,255);
clearwindow(c);
myline(200,173,100,346,true);
myline(200,173,300,346,true);
myline(300,346,100,346,true);
FloodFill(1,1,g);
n:=random(20);
for i:=0 to n do
begin
  repeat
  x1:=random(200)+100;
  y1:=random(173)+173;
  x2:=random(200)+100;
  y2:=random(173)+173;
  until (x1<>x2)and(y1<>y2);
  p[i]:=fline(x1,y1,x2,y2);
  paint(p[i]);
end;
krush;
sim(fline(200,173,100,346),100,200,false);
sim(fline(200,173,300,346),200,300,true);
simall(402,348);
myline(300,0,100,346,true);
myline(100,0,300,346,true);
myline(300,346,100,346,true);
myline(100,1,300,1,true);
myline(0,173,400,173,true);
myline(100,1,0,173,true);
myline(0,173,100,346,true);
myline(300,1,400,173,true);
myline(400,173,300,346,true);
FloodFill(1,1,rgb(random(256),random(256),random(256)));
end.