Вывести информацию о рейсах, длительностью более, заданного пользователем времени, от-правлением с 18.00 до 5.00. - Turbo Pascal - Ответ 1372068

program ice;
uses crt;
type rasp=record
Punkt:string;
vrotp:integer;
vrprib:integer;
end;
type
mas=array[1..100] of rasp;
var
m,i,n,z:integer; a:mas;
Procedure vvod(n:integer);
begin
for i:=1 to n do
begin
Writeln('Пункт Назначения: ');
Readln(a[i].punkt);
Writeln('Время отправления: ');
Readln(a[i].vrotp);
Writeln('Время прибытия: ');
Readln(a[i].vrprib);
end;
end;
procedure vivod;
begin
Writeln('Введите время когда вы будите на станции: ');
readln(z);
Writeln('Список автобусов отправляющихся после ',z,' часов');
for i:=1 to n do
if z<=a[i].vrotp then
Begin
Writeln('Пункт отправления: ' , a[i].punkt);
Writeln('Время прибытия: ' , a[i].vrprib);
end;
end;
Begin
Writeln('Введите кол-во маршрутов: ');
Readln(n);
vvod(n);
vivod;
readln;
end.