помогите доделать програмку

[lyonya0111]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
cf:record;
namegames:string [20];
stoimost:string [20];
vosrast:string [20];
end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fp:file of cf;
  pole:cf;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
AssignFile(fp,'f.dta');
Rewrite(fp);
end;
procedure TForm1.Button2Click(Sender: TObject);
AssignFile(fp,'f.dta');
Reset(fp);
Seek(fp,FileSize(FP));
pole.namegames:=edit1.text;
pole.stoimost:=edit2.text;
pole.vosrast:=edit3.text;
write(fp.pole);
filesize(fp);
closefile(fp);
end;
procedure TForm1.Button3Click(Sender: TObject);

[-HunteR-]

Сложи их и всё(если я тебе правильно понял):

Edit3.text := Edit1.Text+Edit2.Text

[lyonya0111]

а как это дописать к программе?
само условие

[-HunteR-]

Не понял! Объясни поконкретнее

[lyonya0111]

поправочка
а) названия игрушек, которые подходят как детям 5 лет, так и детям 10 лет

и что конкректно писать после
procedure TForm1.Button3Click(Sender: TObject);
буду очень благодарен

[Sibedir]

А не проще ли переделать тип записи

cf = record
  namegames:string [20];
  stoimost:string [20];
  vosrast:string [20];
end;

на

cf = record
  NameGames: String [20];
  Stoimost: Word;
  MinVosrast: Word;
  MaxVosrast: Word;
end;

Так задача решается куда проще
А вообще, специально для этого есть базы данных.

[lyonya0111]

хорошо но как сэтим дописать программу (чтения из файла)
cf = record
NameGames: String [20];
Stoimost: Word;
MinVosrast: Word;
MaxVosrast: Word;
end;

[Sibedir]

var
  rab: cf;

...

  if (rab.MinVosrast <= 5) and (rab.MaxVosrast >= 10) then
    ShowMessage ('Годится')
  else
    ShowMessage ('Не годится');

[lyonya0111]

Спасибо большое, что помогли

[lyonya0111]

вот так будет что ли

School=record
NameGames: String [20];
Stoimost: String [20];
MinVosrast: Word;
MaxVosrast: Word;

end;
var
Form1: TForm1;
fp:file of School;
pole,temp:School;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
AssignFile(fp,'C:\f.dta');
Rewrite(fp,'C:\f.dta');
showMessage('Файл создан');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(fp,'C:\f.dta');
Reset(fp);
Seek(fp,FileSize(fp));
pole.NameGames:=Edit1.Text;
pole.Stoimost:=Edit2.Text;
pole.MinVosrast:=strtoint(Edit3.Text);
pole.MaxVosrast:=strtoint(Edit3.Text);
write(fp,pole);
filesize(fp);
closefile(fp);
ShowMessage ('Записано')
end;
procedure TForm1.Button4Click(Sender: TObject);
var
rab: School;
begin
AssignFile(fp,'C:\f.dta');
Reset(fp);
while(not EOF(fp))do begin
Read(fp,rab);
if (rab.MinVosrast<=5)and (rab.MaxVosrast<=10) then
ShowMessage ('Годится')
else
ShowMessage ('Не годится');
memo1.Lines.Append(rab.NameGames);
end;
end;
end.