Pascal/Turbo Pascal - Modo Grafico

Tengo que hacer un TA TE TI para la facu y el compilador que utilizamos es el dev pascal y quiero hacerle algunos detalles al juego pero no encuentro ninguna libreria para el modo grafico de dev pascal, lei por ahi que el dev pascal no tiene modo grafico puede ser asi??

Y si es asi me pueden dar alguna solucion para cambiarle el tamaño a algunas palabras.

Gracias..!

el modo grafico de dev pascal es el mismo de freepascal o el de pascal estandar y lo emulas o sea compilas en dos.

[Ejemplo dev-pascal]

procedure iniciografico;
begin
drive := detect;
initgraph(drive,modo,'c:\dev pas'); {Deves de tener los driveres EGAVGA.BGI Para
16 Colores o SVGA.BGI Para 256 Colores <Este Ejemplo Esta con EGAVGA.BGI >}
if graphresult <> 0 then
begin
writeln('Error Graficos');
halt(1);
end
else
begin
setcolor(15);
outtextxy((getmaxx div 2) - 20,(getmaxy div 2) - 12,'MODO GRAFICO');
line((getmaxx div 2) - 20,getmaxy div 2,(getmaxx div 2) + 75,getmaxy div 2);
rectangle((getmaxx div 2) - 20,(getmaxy div 2) + 12,
(getmaxx div 2) + 75,(getmaxy div 2) + 44);
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 18,
'X = ' + intstring(getmaxx + 1));
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 28,
'Y = ' + intstring(getmaxy + 1));
settextstyle(0,0,2);
outtextxy((getmaxx div 2) - 52,(getmaxy div 2) + 60,'TAMA' +
chr(165) + 'O LETRA');
settextstyle(0,0,3);
setcolor(14);
outtextxy((getmaxx div 2) - 450,100,'DEV-PASCAL Version v1.9.2 Freepascal');
settextstyle(0,0,0);
setcolor(15);
readln;
closegraph;
end;
end;



begin
iniciografico;
end.

program graficos;
uses
crt, graph;

var
drive, modo : word;


function intstring(nu : integer) : string;
var
dat : string[8];
begin
fillchar(dat,9,' ');
dat[0] := chr(8);
str(nu,dat);
intstring := dat;
end;

procedure iniciografico;
begin
drive := detect;
initgraph(drive,modo,'c:\dev pas');
if graphresult <> 0 then
begin
writeln('Error Graficos');
halt(1);
end
else
begin
setcolor(15);
outtextxy((getmaxx div 2) - 20,(getmaxy div 2) - 12,'MODO GRAFICO');
line((getmaxx div 2) - 20,getmaxy div 2,(getmaxx div 2) + 75,getmaxy div 2);
rectangle((getmaxx div 2) - 20,(getmaxy div 2) + 12,
(getmaxx div 2) + 75,(getmaxy div 2) + 44);
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 18,
'X = ' + intstring(getmaxx + 1));
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 28,
'Y = ' + intstring(getmaxy + 1));
settextstyle(0,0,2);
outtextxy((getmaxx div 2) - 52,(getmaxy div 2) + 60,'TAMA' +
chr(165) + 'O LETRA');
settextstyle(0,0,3);
setcolor(14);
outtextxy((getmaxx div 2) - 450,100,'DEV-PASCAL Version v1.9.2 Freepascal');
settextstyle(0,0,0);
setcolor(15);
readln;
closegraph;
end;
end;



begin
iniciografico;
end.