Графика. Паскаль. "Звездное небо"

[VikkyVi]

Я создала программу "Звездное небо". Помогите доделать прогу)) Не могу сделать так, когда количество точек достигает определенного значения, предыдущие исчезали.

uses Crt, Graph;

var
  Gd, Gm : Integer;
  Color  : Word;

begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP');
  if GraphResult <> grOk then
    Halt(1);
  Color := GetMaxColor;
  Randomize;
  repeat
    PutPixel(Random(650), Random(450), Color);
    Delay(10);
  until KeyPressed;
  ReadLn;
  CloseGraph;
end.

[Serge_Bliznykov]

VikkyVi, заведите массивчик, в котором сохраняйте координаты точек,
когда массив заполнится, тогда гасите (стирайте) точки, которые в массиве есть и записывайте туда новые, которые рисуйте.
всё просто.