SoloCodigo

Hola. Tengo pendiente de resolver un ejercicio que consiste en dada una hora deseada y teniendo el tipo hora y el tipo horario definido:
hora:tipo<h1,h2,m1,m2:entero>
horario:tipo tabla[1..100,1,2] de hora  #tabla que contiene en la primera columna la hora de salida de un bus y en la otra la hora de     
                                                       llegada 
Recorriendo la tabla hay que decir que autobús se aproxima más a la hora de llegada deseada (decir la hora de salida). El problema es a la hora de estar horas ya que tenemos 4 enteros. Los autobuses salen de 00 00 a 23 59 y no se considera que un bus salga un día y regrese al siguiente. Espero haberme explicado y gracias de antemano. Sólo necesito saber como hacer las restas , no pido que nadie me haga la tarea.

Hola a todos. Soy bastante novato en el tema de la programación y estoy trabajando con free pascal. El caso es que me compila el programa sin error alguno pero no funciona , da un error. Os dejo el enunciado , el código que he hecho y espero con gracias que alguien me diga algo .

"Escriba un algoritmo que obtenga la interseccion de dos conjuntos de enteros representados como secuencias ordenadas crecientemente"



program prob4;

uses
unitmse1;

var
A,B,C:MSE1;

begin

Tratamientoinicial_mse1 (A);
Tratamientoinicial_mse1 (;
Cargar_Fichero_mse1 (A, 'entrada.txt');
Cargar_Fichero_mse1 (B, 'entrada2.txt');
Comenzar_mse1 (A);
Comenzar_mse1 (;
Arrancar_mse1 (C);

while (EA_mse1 (A) <> mse1_MarcaFin) and (EA_mse1 ( <> mse1_MarcaFin) do

begin

if EA_mse1 (A) = EA_mse1 ( then

begin

Registrar_mse1 (C,EA_mse1(A));
Avanzar_mse1 (A);
Avanzar_mse1 (;
end

else if EA_mse1 (A) > EA_mse1 ( then Avanzar_mse1 (
else if EA_mse1 ( < EA_mse1 (A) then Avanzar_mse1 (

end;

Marcar_mse1 (C);
Salvar_Fichero_mse1 (C, 'salida.txt');
Readln;
end.