Деление на нуль при запуске

[Pababop]

Здравствуйте господа!!!
Пишу программу выводящую на экран цветной текст. Компилирует успешно, однако при запуске выдает Error 200: Division by zero.
Однако в коде такого нет. Подскажите, пожалуйста, что делать. Заранее спасибо. Компилятор стандартный Borland Pascal 7.0
Вот листинг:

program lab;

uses
Crt,Graph;

var

Driver,Mode,Error,Font,Direct,Size: integer;

begin

ClrScr;

Driver:=Detect;
InitGraph(Driver,Mode,'');

Error:= GraphResult;
if Error<>0 then
Writeln(GraphErrorMsg(Error))
else

begin

Font:=GothicFont;
Direct:=HorizDir;
Size:=32;
SetBkColor(green);
SetColor(Yellow);

SetTextStyle(Font,Direct,Size);
OutTextXY(320,240,'Hello World!!!');