Compilation aborted, графика.

[sunny_alice]

Просто не запускается. Пишет compilation aborted и все. Что изменилось - не понимаю... Вчера работала, сегодня открываю, ничего не меняла - не работает.

program lab7_2;
  uses crt,wincrt,graph;
  var gd,gr,gosh:integer;

begin
  clrscr;
  gd:=detect;
  initgraph(gd,gr,'');
  gosh:=graphresult;
  if gosh<>0 then
    begin
      writeln(grapherrormsg(gosh));
      readln;
      halt;
    end;
  setviewpart(0,0,600,450);
  cleardevice;


  bar(180,185,280,245);
  bar(315,185,415,245);
  bar(450,185,450,245);
  circle(210,245,8);
  circle(250,245,8);
  circle(345,245,8);
  circle(385,245,8);
  circle(480,245,8);
  circle(520,245,8);


  setcolor(6);
  setfillstyle(1,6);


closegraph;
readln;
end.