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

[JoB]

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

[volvo]

а как о остальных звездочках

так:

...
  until finish; { это - окончание соревнования, то что было у меня }

  writeln;
  dec(i);
  writeln('#', i, ' первое место');

  if i = 1 then plus := 2
  else plus := 1;

  if pos[plus] > pos[6 - (plus + i)] then
    writeln('#', plus, ' второе; #', 6 - (plus + i), ' третье')
  else
    writeln('#', 6 - (plus + i), ' второе; #', plus, ' третье');
end.

что за тип такой просто не первый раз встречаю set of byte;

Это множество, сожержащее значения типа Byte. Подробнее про множества читай здесь:
FAQ: Множества, и работа с ними

что такое clreol

Указание программе удалить все символы от текущего положения курсора до конца строки (курсор при этом остается на том же месте...)