примитивная программа на паскале

[Paulsan]

Здравствуйте, задали написать самую простую программку, а я не знаю с чего начать даже, может кто сможет дать хотя бы подсказку как это всё делается. Заранее спасибо. Вот задачка:

Ввести для нескольких автобусов время отправления и
время прибытия. По каждому автобусу выдать
АВТОБУС 999 ОТПРАВЛЕНИЕ 99:99 ПРИБЫТИЕ 99:99 ВРЕМЯ В ПУТИ 999:99
Ввод завершить, если время отправления равно 9999.
В конце программы выдать самой длинный рейс.

[vlad_light]

var max, num, der, arr : integer;
begin
max:=0;
while arr<>9999 do
begin
readln(num,der,arr);
if (arr-der)>max then max:=arr-der;
writeln('АВТОБУС ',num,'ОТПРАВЛЕНИЕ ',der,'ПРИБЫТИЕ ',arr,'ВРЕМЯ В ПУТИ ',arr-der)
end;
if max<>0 then writeln('Самый длинный рейс ', max);
end.

Приблизительно так...

[Paulsan]

Спасибо большое! Мир не без добрых людей!