Задача по записи!, Экзамен Опции

[Dominik]

Помогите найти я всё пролистал немогу найти я вообше в поскале не шарю знаю только что ето задача на запись
Создать не текстовый файл Play.dat, который содержит сведения об игрушках
(Наименование, цена, возрастные границы например, от 3-х до 10 лет).
Вывести в текстовый файл названия игрушек, упорядоченных в порядке возрастания цены, цена которых не превышает 200 рублей и предназначенных для детей 5 лет.
Вывести на экран цену самого дорогого ‘Конструктора’.
Завтра экзамен я только сегодня ваш сайт нашел и вижу что вы тут друг другу помогаете
На остольных форумах молчат по этой теме помогите

[Altair]

Да пожалуйста!

Код

Const
NN=70;
type
TGame = record
         title: string[10];{название}
         price: real;       {цена}
         age_1,age_2: byte;{возраст}
        end;
PGame=array[1..NN] of TGame;
var
N,i:integer;
f:file of TGame;
P:Pgame;
F1:text;

Procedure Sort(var A:PGame; N:integer); {сортировка}
Var
P:TGame;
i,j : integer;
Begin
for i:=1 to n do for j:=1 to n-i do  if A[j].price>A[j+1].price then
begin
 p:=A[j];
 A[j]:=A[j+1];
 A[j+1]:=P;
end;
End;

begin
{создаем файл}
writeln('ввод записей.');
write('введите число записей::'); readln(n);
assign(f,'Play.dat');
rewrite(f);
for i:=1 to n do
begin
 with p[i] do
 begin
  write('название: '); readln(title);
  write('цена: '); readln(price);
  write('нач. возраст : '); readln(age_1);
  write('макс. возраст : '); readln(age_2);
 end;
 seek(f,i);
 write(f,P[i]);
end;
Sort(P,n);
close(f);
assign(f1,'result.txt');
rewrite(f1);
for i:=1 to n do
begin
 If (p[i].price<=200) and ((p[i].age_1>=5) or (p[i].age_2<=5)) then
 begin
  with p[i] do
  begin
   writeln(f1,title);
   writeln(f1,price:1:1);
   writeln(f1,age_1);
   writeln(f1,age_2);
  end
 end
end;
close(f1);
writeln('Максимальная цена:');
with p[n] do
begin
 writeln(title);
 writeln(price:1:1);
 writeln('age: ',age_1,' - ',age_2)
end
end.

все по заданию..