Графика Pascal

[Houdini]

Нужно сделать взлетающею ракету,цвет пламени которой меняется.
Помогите пожалуйста решить проблему с мерцанием пламени, и я что-то не могу залить цветом саму ракету.
Вот что я сделал

program Lab_9;
uses
  Graph, crt;
var gm,Gd, X, S, Y, x1, y1, i: integer;
  Size: word;
  P: pointer;
Begin
  Gd := VGA;
  Gm := VGAHI;
  x := 100;
  y := 100;
  x1 := 160;
  y1 := 200;
  InitGraph(Gd,Gm,'');
  SetColor(Yellow);
  SetBkColor(LightBlue);
  REctangle(x,y,x1,y1);
  SetFillStyle(1, Black);
  FloodFill(101,101,Yellow);
  Line(x+30, y-30, x, y);
  Line(x+30, y-30, x1, y1-100);
  Circle (x+30, y+20, 10);
  Circle (x+30, y+20, 8);
  Line(x-30, y+100, x1-60, y1);
  Line(x-30, y+100, x1-60, y1-30);
  Line(x1, y1, x+90, y+100);
  Line(x+90, y+100, x1, y1-30);
  Size := ImageSize(60, 50, 200, 230);
  GetMem(P, Size);
  GetImage(60,50, 200, 230, p^);
  ClearDevice;
  repeat
    PutImage(60, y, P^, 0);
    ClearDevice;
    PutImage(60, y, P^, 0);
    dec(y);
    Randomize;
    SetColor(random(16));
    for x := 103 to 155 do
    begin
      if x <= 129 then
      begin
        y1 := y1 + i;
        Line(x, y+151, x, y1-s+50+(random(5)));
      end
      else
      begin
        y1 := y1 - i;
        Line(x, y  +151, x, y1-s+50+random(5));
      end;
    end;
    inc(s);
    x := 100;
    y1 := 200;
  until y = 1;
end.

[Houdini]

С заливкой цвета разобрался, осталось мерцание.