Pascal/Turbo Pascal - No lo logro correr

Hola no he podido correr el programa de corazones ayuda plis

program corazon;
uses
crt,GRAPH;
const mcorazon : array[1..12,1..15] of byte = (
(0,0,1,1,1,0,0,0,0,0,1,1,1,0,0),
(0,1,0,0,0,1,0,0,0,1,0,0,0,1,0),
(1,0,0,0,0,0,1,0,1,0,0,0,0,0,1),
(1,0,0,0,0,0,0,1,0,0,0,0,0,0,1),
(1,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
(0,1,0,0,0,0,0,0,0,0,0,0,0,1,0),
(0,0,1,0,0,0,0,0,0,0,0,0,1,0,0),
(0,0,0,1,0,0,0,0,0,0,0,1,0,0,0),
(0,0,0,0,1,0,0,0,0,0,1,0,0,0,0),
(0,0,0,0,0,1,0,0,0,1,0,0,0,0,0),
(0,0,0,0,0,0,1,0,1,0,0,0,0,0,0),
(0,0,0,0,0,0,0,1,0,0,0,0,0,0,0));
var driver, modo : integer;
x, y : integer;
begin
driver := detect;
initgraph(driver, modo,'C:\progra~1\TP\UNITS');

if graphresult <> 0 then
begin
halt(1);
end
else
begin
for y := 1 to 12 do
for x := 1 to 15 do
begin
if mcorazon[y,x] = 1 then
begin
putpixel(100 + x * 4,130 + y * 4,12);
putpixel(100 + (x * 4) - 1,130 + (y * 4) - 1,12);
putpixel(100 + (x * 4) + 1,130 + (y * 4) + 1,12);
putpixel(100 + x * 2,100 + y * 2,10);
putpixel(100 + x ,80 + y ,15);
end;
end;
readln;
closegraph;
end;
end.

{El programa funciona correcta mente pero en initgraph(driver, modo,'C:\progra~1\TP\UNITS');
deberías de ponerlo así initgraph(driver, modo,'C:\progra~1\TP\BGI'); puesto que en
opciones directorios le abras puesto los caminos que corresponden a la ubicación del
programa pascal.

No debieras de tener ningún problema pero si sigue dándote mal pasa la información que
tienes puesta en opciones directorios en la configuración de pascal y con ello intentare ayudarte
mas.

Hola ramon espero te encuentres bien, fijate te subi una imagen a ver si me dices en donde estoy fallando plis

http://www.hiboox.es/go/imagenes/informatica problemita,2fbdb951b91a16dd403a66631f6db718.bmp.html

Zona de opciones directorios

Ponle todo así.

EXE & TPU Directory = C:\Progra~1\TP

INCLUDE Directories = C:\Progra~1\TP

UNIT Directories = C:\progra~1\TP\UNITS;C:\progra~1\TP

OBJECT Directories = C:\progra~1\TP;C:\progra~1\TP\BIN


Asin tiene que funcionar te bien fijate en los punto y coma entre las asignaciones
no te se pasen.

En el inicio de la unidad graph no tese olvide poner el camino de la BGI en tu caso sera
c:\progra~1\tp\bgi Pero asegurate que ese es el camino de la BGI se supone que
tendras en ese directorio un archivo que se llamara EGAVGA.BGI sin el no ejecutara el grafico.