Помогите пожалуйста решить задачки на тему "Записи"

[АполинАрия]

Помогите пожалуйста в решении задач по теме "ЗаписИ"

1)
Дан массив данных содержащий сведения о наличие билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Напечатать время отправления самолётов в город X и наличие свободных мест на рейс в город X c временем отправления Y.

2)
Дан массив, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилию абонента, год установки телефона, номер телефона. По первым двум цифрам телефона отпечатать список всех абонентов с такими номерами.

Огромное спасибо!!!

[DM_bite]

1

Program Xd;
type Tickets = record
number: integer;
points: string;
timeVil: integer;
timePrb: integer;
nfp: integer;
end;
var Tick: array [1..10] of Tickets;
i: integer;
s:string;
begin
for i:= 1 to 10 do
begin
 // заполняешь массив записей
end;
for i:= 1 to 10 do
 begin
 if Tick[i].points='городХ' then 
 begin
WriteLn(Tick[i].timeVil,'___',Tick[i].nfp);
 end;
 end;
ReadLn;
end.

Как-то так.

[DM_bite]

Насчет 2 задачи: Номер телефона состоит из скольки цифр?

[АполинАрия]

Сообщение от DM_bite

Насчет 2 задачи: Номер телефона состоит из скольки цифр?

Ну как бы не сказанно, но наверное из 6.