Нарисовать елку — Pascal(Паскаль)

program test;
uses crt;
var ex,ey,kx,ky,gx,gy,rx,ry,i,a,b: integer;
begin
{eglutes pradinis taskas}
ex:=10;
ey:=2;
a:=0;
 
{kamieno pradinis taskas}
kx:=9;
ky:=9;
 
{geltona lempute}
gx:=10;
gy:=3;
 
{raudona lempute}
rx:=9;
ry:=4;
b:=2;
 
{darom pagrindini balta langeli}
    ClrScr;
    Window(1,1,40,25);
    textbackground(white);
 
    ClrScr;
 
    {pirmas eglutes taskas}
    textbackground(green);
    textcolor(black);
    GoToXY(ex,ey);
    write('^');
    {darom eglute}
    for i:= 2 to 6 do
    begin
    ex:= ex - 1;
    ey:= ey + 1;
    a:=a+2;
    Delay(150);
    GoToXY(ex,ey);
    write('^','^':a);
    end;
    GoToXY(ex-1,ey+1);
    write('^^^^^^^^^^^^^');
 
     {kamienas}
     textbackground(black);
     textcolor(white);
     gotoxy(kx,ky);
     write('[ ]');
     {darom kamiena}
     for i:= 2 to 4 do
     begin
     ky:=ky+1;
     Delay(150);
     gotoxy(kx,ky);
     write('[ ]');
     end;
     
     {raudona lempute}
     textbackground(green);
     textcolor(red);
     GoToXY(rx,ry);
     write('$','$':b);
     {darom raudona lempute}
     for i:= 2 to 4 do
     begin
     rx:= rx - 1;
     ry:= ry + 1;
     b:=b+2;
     Delay(150);
     GoToXY(rx,ry);
     write('$','$':b);
     end;
     
     {geltona lempute}
     textbackground(green);
     textcolor(yellow);
     GoToXY(gx,gy);
     write('$');
     {darom geltonas lemputes}
     for i:= 2 to 5 do
     begin
     gy:=gy+1;
     Delay(150);
     gotoxy(gx,gy);
     write('$');
     end;
     
  readln;
end.