Бег трех звездочек Опции

[JoB]

Дословно: написать программу для трех звездочек...
выглядит эта прога примерно так: на экрани носятся три звездочки, начиная свой "бег" слевого края экрана и заканчивая правым краем (при этом звездочки не выходят за приделы экрана и не меняет своей строки) Каждая звездочка проходит эту дистанцию по разному, при чем скорость звездочки меняется с каждым новым "забегом".
*
*
*
Вот что то в этом роде...
Я конечно ща сяду сам писать эту прогу, но хотелось бы услышать совет профессионалов.

[Guest]

Вот немного пописал эту прогу...

uses crt;
var i,i1,i2,s,mesto:integer;
begin
clrscr;
 randomize;
 i:=2;i1:=1;i2:=1;mesto:=1;
 repeat
 s:=random(2);
 delay(50);
 If s=0 then
  begin
  i:=i+1;
  textcolor(white);
  gotoxy(i,1);
  write('*');
  end
 else
  if s=1 then
   begin
    i1:=i1+1;
    textcolor(white);
    gotoxy(i1,1);
    write('*');
   end
  else
   begin
    i2:=I2+1;
    textcolor (white);
    gotoxy(i2,3);
    write('*');
   end;
 if i=80 then
  begin
   mesto:=mesto+1;
   gotoxy(1,mesto+3);
   writeln ('tochka1 zanila1',mesto,'mesto');
   end;
  if i=1 then
   begin
    mesto:=mesto+1;
    gotoxy(1,3+mesto);
    writeln ('tochka2 zanila',mesto,'mesto');
    end;
   begin
   if i2=80 then
   mesto:=mesto+1;
   gotoxy(1,mesto+3);
   write ('3 tochka zanila' ,mesto,'mesto');
   end;
until(i>=80)and(i1>=80)and(i2>=80);
readln
end.

но проблема осталась почему то она выводит только результат третьей звездочки, и только ее перемещения по экрану... Причем от звездочки остаются сдеды... а мне б хотелось что б она бежала, конечно я подозреваю что бы это сделать надо просто заменить цвет звездочки на черный. но вот только как это сделать.....
помогите!!!

М

теги для кода ставь Altair