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

[JoB]

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

[volvo]

Guest, вот тебе программа... Добавь вывод результатов и все готово

uses crt;

const
  n = 3;
var
  delta, pos: array[1 .. n] of integer;
  finish: boolean;
  i: integer;

begin
  clrscr;
  randomize;
  for i := 1 to n do begin
    pos[i] := 1;
    delta[i] := random(3) + 1;
  end;

  finish := false;
  repeat
    i := 1;
    delay(125);
    repeat
      gotoxy(1, 10+i); clreol;
      gotoxy(pos[i], 10+i); write('*');
      inc(pos[i], delta[i]);
      finish := pos[i] >= 80;
      inc(i)
    until (i > n) or finish;
  until finish;
end.