Задача на файлы в Pascal ABC. Найти нужное

[Asya_inter]

Задача на файлы в Pascal ABC. Найти нужное

Помогите, пожалуйста доделать. Как найти игрушки стоимостью меньше 4 и для возраста подходящие? И как в ответ это вывести? Дан файл f, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), ее стоимость в копейках и возрастные границы детей, для которых игрушка предназначена (например, для детей от двух до пяти лет). Получить следующие сведения:
а) название игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет;

program v517;

Type Toy = record // тип игрушка
name : string; // название
price : integer; // стоимость
age : integer; // возрастные границы
a: boolean;
end;

var
f : text; // переменая для работы с файлом
i : integer; // счетчик
size : integer; // кол. игрушек
maxAge : integer; // макс. возрастная граница
maxPrice : integer; // макс цена игрушки
mas : array [1..100] of Toy; // контейнер игрушек

begin
assign(f, 'input.txt'); // связываем переменную с файлом
reset(f); // открываем файл на чтение
i := 1; // 1 игрушка
maxPrice := 400; // макс цена = 400
maxAge:=5; //макс. возрастная граница = 5
while (not eof(f)) do // пока не дошли до конца файла
begin
readln(f, mas.name); // считываем данные об игрушке
readln(f, mas.price);
readln(f, mas.age);
maxAge > mas.age; //найти все до 5 лет
writeln

end;
end.

 

[Asya_inter]

Уже не нужно. Решила) Спасибо.