Выключение графического режима, отображение программы в окне Опции

[rekrut]

Проблема заключается в том что после запуска программы вылетает заставка , во весь екран, после ее показа програма так и остается работать в полноекранном режиме, мне же надо сделать так что бы после показа заставки программа переходила обратно в оконный режим, подскажите пожалуйста какие существуют методы для решения етого вопроса .

[klem4]

Во первыйх это ни укого даже откомпилировать неполучится ... Во вторых проверь это:

uses crt, graph;

var
  gd, gm: Integer;

begin
  gd := detect;
  initgraph(gd, gm, '');
  outtextxy(100, 100, 'test graph');
  readkey;

  closegraph;
  writeln('test crt');
  readln;
end.

отработало замечательно.