procedure over;

begin
 Graf;
 Randomize;
 repeat
   if co=14 then co:=1;
   Size :=5 ; co:=co+1;
   SetColor(co);
   SetTextStyle(DefaultFont, HorizDir, Size);
   OutTextXY(120, 180, 'Game over ');
   Inc(Y1,TextHeight('Game over '));
   x:=random(640); y:=random(480);
   if (x<100) or (x>480) or (y<160) or (y>220) then
   BEGIN
      Color:=(random(15)+1);
      PutPixel(x, y, Color); { Plot "stars" }
   END;
   delay(40);
 until KeyPressed;
 CloseGraph;
end;