Получить названия игрушек, цена которых не превышает 4 рублей и которые подходят детям до 5 лет

uses crt;
type data = record
       toy:string;
       price,age1,age2:integer;
     end;
var a:array [1..100] of data;
    c:char;
    n:integer;
 
procedure add;
begin
  ClrScr;
  repeat
    inc(n);
    writeln('   äëÿ âûõîäà ââåäèòå - 0');
    write('ââåäèòå èìÿ èãðóøêè: ');readln(a[n].toy);
    if a[n].toy='0' then begin dec(n); break end;
    write('ââåäèòå öåíó (êîï.): ');readln(a[n].toy);
    writeln('ââåäèòå âîçðàñòíûå ãðàíèöû: ');
    write('Îò '); readln(a[n].age1);
    write('Äî '); readln(a[n].age2);
    writeln('Äîáàâëåí');
    writeln;
  until 0=1
End;
 
procedure Find;
var i:integer;
    max:data;
begin
  ClrScr;
  max:=a[1];
  if n=0 then writeln('Íè÷åãî íå íàéäåíî. Âàì ñëåäóåò äîáàâèòü èãðóøêè')
  Else Begin
    For i:=1 to n do Begin
      if (a[i].price <= 400) and (a[i].age2<=5) then Begin
        writeln(a[i].toy);
      End;
      if max.price<a[i].price then max:=a[i];
    End;
    writeln;
    write('Ñàìàÿ äîðîãàÿ èãðóøêà - ',max.toy,' còîèò: ',max.price div 100,' ðóá. ', max.price mod 100,' êîï.');
  End;
  readln;
end;
 
begin
n:=0;
repeat
  ClrScr;
  writeln('Ââåäèòå: 1 ÷òîáû äîáàâèòü. 2 ÷òîáû íàéòè. 3 âûõîä');
  c:=readkey;
  Case c of
  '1': Add;
  '2': Find;
  end;
Until c='3';
end.