как сделать правильно прогу

ВОТ ТАКОЙ КОДИК
program poezd;
uses crt;
var
min,max,num,bf,bl,time1,time2,time3:LongInt;
begin

write('номер поезда ');
readln(num);
write('отправление ');
readln(time1);
bf:=num;
while time1<>9999 do
begin
write('Прибытие ');
readln(time2);
begin
write('поезд ',num,' отправление ',time1 div 100,':');
if time1 mod 100<10 then write('0');
write(time1 mod 100,' прибытие ',time2 div 100,':');
if time2 mod 100<10 then write('0');
write(time2 mod 100,' время в пути ');
if time2 mod 100max then begin max:=time3;bf:=num; end;

end; writeln;
write(' номер поезда ');
readln(num);
write('отправление ');
readln(time1);
end;
writeln('самый долгий рейс ', bf);
readln;
end.
как сделать так чтобы прога выводила самый долгий рейс т. к у меня не получаеться