(Free Pascal) - ошибка not in graphics mode хотя я подключил модуль Graph

У меня есть учебная программа на Free Pascal, для сборки использую Geany IDE. Код программы:

Uses Crt, Graph, DOS, HelpGraph;
Var vga, vga0: Integer;
        Axes_Color, BackGround_Color, Color: Byte;
        Xmin, Xmax, Ymin, Ymax, x, y, x0, y0, x1, y1: Extended;
        Gr0:Graphic;

        Procedure InitGraph;
          Begin
            vga:=1;
            vga0:=2;
            Starting(vga, vga0, ' ');
            Gr0.Init;
            Gr0.SetWindow(0, 0, GetMaxX, GetMaxY);
            Gr0.SetXYRange(Xmin, Xmax, Ymin, Ymax);
            Gr0.SetColor(Axes_Color, BackGround_Color);
            Gr0.Show;
          End;

          Begin
            Xmin:=3.5;
            Xmax:=5.5;
            Ymin:=2.5;
            Ymax:=1.5;
            Axes_Color:=15;
            BackGround_Color:=0;
            InitGraph;
            Color:=10;

            x:=1;
            y:=1;
            x0:=1;
            y0:=2;
            x1:=5;
            y1:=6;


            SetColor(Color);
            Gr0.Putpixel(x, y);

            Line(Gr0.GetX(x0), Gr0.GetY(y0), Gr0.GetX(x1), Gr0.GetY(y1));
            Readln;
          End.

Собираю проект, и написано, что сборка прошла успешно, потом запускаю через F5 и вижу такое сообщение:

Error: Not in graphics mode (use InitGraph and test GraphResult afterwards)

------------------
(program exited with code: 1)

Почитал разные рекомендации написано добавить в uses Graph, хотя я его добавлял, что можно еще сделать, чтобы запускалась программа?