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

Question

ВОТ ТАКОЙ КОДИК 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. как сделать так чтобы прога выводила самый долгий рейс т. к у меня не получаеться

Ирина Гаврилова · Accepted Answer

а где значение max?