Графика в FPC 2.2.0 Опции

[mr.voland]

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

programm test;
uses Graph;
var driver, mode: integer;
Begin
driver:=detect;
initgraph (driver, mode, 'C:\TP\BGI');
Ellipse (200,250,0,359,10,20); (это овал)
closegraph;
end.

папки C:\TP\BGI у меня естественно нет я не чего умне как взять папку из БП скопировал папку в фрипаскаль не придумал.
Но не работает (чесно говоря я и не удивлен)
собственно и вопрос что делать?.
Заранее благодарен.

[volvo]

Сам же запретил создание консольного окна (директивой {$APPTYPE GUI}), и сам же удивляешься, что при попытке чтения из консоли (ReadLn) вылетает ошибка? Так консоли-то нет!

Program Dot;

{$Ifdef Win32}
  {$apptype GUI}
{$endif}

Uses
  {$ifdef Win32}
    Windows, WinCrt, WinGraph; // Под Windows - используем WinGraph, а не Graph
  {$else}
    Crt, Graph;
  {$endif}

Var
  driver, mode: smallint;

begin
  initgraph(driver, mode, '');
  putpixel(100, 100, White);

  // Не будем читать из консоли, сделаем по-другому
  repeat until readkey = #13;

  CloseGraph;
end.