Pascal/Turbo Pascal - Necesito ayuda

Buenas. Miren necesito ayuda para la realizacion de un programa, en una de la partes se me pide que cree un programa que recoja dos horas diferentes en horas y minutos introducidos por el usuario y que realice la resta. El problema esta en que no se como recojer la hora como me la piden y es extrictamente que sea igual que en la siguiente interfaz:

Inserte hora de entrada (hh mm): 08 21
Inserte hora de salida (hh mm): 17 48

¿A alguien se le ocurre como puedo hacerlo? Tiene que ser exactamente igual.

Muchas gracias. Tu programa me ha inspirado para intentar otra cosa. lamentablemente, el punto que divide las horas de los minutos me sobra ¿se puede quitar de algun modo?

Si pero entonces tendrias que poner 4 variavles y entrar las 4 ejemplo ;

var
shh, ehh, smm, emm : real;
ent, sal : real;

write(' Inserte Hora De entrada : ');
readln(ehh);
write(' Inserte Minutos De entrada : ');
readln(emm);
write(' Inserte Hora de Salida : ');
readln(shh);
write(' Inserte Minutos De salida : ');
readln(smm);

como podrás apreciar es mas lio.

Otra seria la misma cadena con la hora y minutos todo junto [ 1230 ] y separar por pares
o sea 12 y 30 pero observa si en vez de entrar [ 1230 ] entra [130 ] la operación fallaría puesto
que tomaría 13 y 0 mal.

Muchas gracias por todo.Ya veo que es mas lio, pero esque necesito que sea asi. Espara un trabajo de la universidad, y en esto tenia la duda y sin solucionarla no podia continuar