uses Crt, Graph;

var
  Driver, Mode, I : Integer;
  MyPal, OldPal   : PaletteType;

begin
  DirectVideo := False;
 Randomize;
  Driver := Detect;   { Инициализируем графику }
  InitGraph(Driver, Mode, 'X:\BP');
 if GraphResult < 0 then
   Halt(1);
  GetDefaultPalette(OldPal);   { Сохраняем старую палитру }
  MyPal := OldPal;   { Копируем палитру }
 { Выводим текст }
 for I := 0 to MyPal.Size - 1 do
 begin
    SetColor(I);
    OutTextXY(10, I * 10, '...Press any key...');
 end;
 repeat   { Меняем палитру }
   with MyPal do
      Colors[Random(Size)] := Random(Size + 1);
    SetAllPalette(MyPal);
 until KeyPressed;
  SetAllPalette(OldPal);   { Восстанавливаем старую палитру }
  ClearDevice;
  OutTextXY(10, 10, 'Press <Return> to exit ...');
 ReadLn;
  CloseGraph;
end.