Какой то старанный вопрос, если честно. Я тут немного пофантазировал)
program zhn;
var
a,b,c:integer;
begin
write('Введте во сколько завалились спать(часов):');
readln(a);
write('Введте во сколько нужно проснуться(часов):');
readln(b);
if a writeln('Спать вам ',(b-a)*60,' минут');
end
else writeln('Спать вам ',(24-a+b)*60,' минут');
end.