Не запускается код - Free Pascal (917)

Формулировка задачи:

Здравствуйте. Попробовал запустить Turbo Pascal на Win, дело упрямое. Перешел на FreePascal. Ниже приведу текст программы который не запускается на Free!

                    Листинг программы
                
 
                        
                          
                    
Program treug;
uses graph;
var d,m:integer;
Begin
d:=detect;
initgraph(d,m, C:\TP\BGI);
SetColor(2);
SetLineStyle(0,0,3);
Line(320,240,355,190);
Line(320,240,390,240);
Line(390,240,355,190);
Line(367,240,400,280);
Line(310,280,400,280);
Line(310,280,339,240);
Line(370,280,410,330);
Line(410,330,300,330);
Line(300,330,340,280);
ReadLn;
CloseGraph;
end.

Я понимаю, что Free отличается от TP.

И нет ли хорошего описания FreePascal???

Решение задачи: «Не запускается код»

Листинг программы

readln(x);

Объяснение кода листинга программы

Вводится значение переменной x с помощью функции readln()
Значение переменной x сохраняется в памяти компьютера
Код завершается