Pascal/Turbo Pascal - ayuda!!

hola necesito quien me pueda ayudar tebgo que hacer un programa en el cual ingrese una frase y me muestre la palabra mas larga de la frase .....desde ya muchas garcias nos vemos!!!1

PROGRAM MI_PALABRA;
USES CRT;

FUNCTION PALABRA_LARGA(CADENA : STRING) : STRING;
VAR
I,PAL,M : INTEGER;
MI_PAL,P : STRING;
TEMPORAL : STRING;
BEGIN

MI_PAL:='';
TEMPORAL:='';
FOR I:=1 TO LENGTH(CADENA) DO
BEGIN
P:=COPY(CADENA,I,1);

IF P=' ' THEN
BEGIN
IF LENGTH(MI_PAL)<(LENGTH(TEMPORAL))THEN
MI_PAL:=TEMPORAL;
TEMPORAL:='';
END
ELSE
BEGIN
TEMPORAL:=TEMPORAL + P;
END;

END;
PALABRA_LARGA:=MI_PAL;
END;

VAR
PALABRA : STRING;

BEGIN

CLRSCR;
TEXTCOLOR(15);
GOTOXY(10,10);WRITE('INGRESE UNA FRASE : ');READ(PALABRA);

TEXTCOLOR(9);
GOTOXY(10,12);WRITE('LA PALABRA MµS EXTENSA ES : ',PALABRA_LARGA(PALABRA));

TEXTCOLOR(15);
GOTOXY(60,24);WRITE('PRESIONE UNA TECLA...');
READKEY;

END.

RESPONDE SI SOLUCIONAS TU PROBLEMA...HASTA PRONTO..

PROGRAM MI_PALABRA;
USES CRT;

FUNCTION PALABRA_LARGA(CADENA : STRING) : STRING;
VAR
I,PAL,M : INTEGER;
MI_PAL,P : STRING;
TEMPORAL : STRING;
BEGIN

MI_PAL:='';
TEMPORAL:='';
FOR I:=1 TO LENGTH(CADENA) DO
BEGIN
P:=COPY(CADENA,I,1);

IF P=' ' THEN
BEGIN
IF LENGTH(MI_PAL)<(LENGTH(TEMPORAL))THEN
MI_PAL:=TEMPORAL;
TEMPORAL:='';
END
ELSE
BEGIN
TEMPORAL:=TEMPORAL + P;
END;

END;
PALABRA_LARGA:=MI_PAL;
END;

VAR
PALABRA : STRING;

BEGIN

CLRSCR;
TEXTCOLOR(15);
GOTOXY(10,10);WRITE('INGRESE UNA FRASE : ');READ(PALABRA);

TEXTCOLOR(9);
GOTOXY(10,12);WRITE('LA PALABRA MµS EXTENSA ES : ',PALABRA_LARGA(PALABRA));

TEXTCOLOR(15);
GOTOXY(60,24);WRITE('PRESIONE UNA TECLA...');
READKEY;

END.

//Espero q' te sirva, responde si solucionas tu problema..