Вывести на экран данные о рейсах самолетов, время вылета которых находится в диапазоне, указанном пользователем.

uses crt;
const n=10;
type plane=record
      company,places:string;
      time:real;
     end;
var x:array[1..n] of plane;
    i:integer;
    a,b:real;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Company: ');
   Readln(company);
   Write(' Places: ');
   Readln(places);
   Write(' Time: ');
   Readln(time);
  end;
Writeln('Table: ');
Writeln('-------------------------------------');
Writeln('||  Company  |  Places  |   Time   ||');
Writeln('-------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].company:11,'|',x[i].places:10,'|',x[i].time:10:2,'||');
Writeln('-------------------------------------');
Write('Range(10.00-16.00): ');
Readln(a);
Write(' - ');
Readln(b);
Writeln('-------------------------------------');
Writeln('||  Company  |  Places  |   Time   ||');
Writeln('-------------------------------------');
for i:=1 to n do
 if (x[i].time>=a) and (x[i].time<=b) then
  Writeln('||',x[i].company:11,'|',x[i].places:10,'|',x[i].time:10:2,'||');
Writeln('-------------------------------------');
Readln;
end.