Описать фаил

[uppu.are]

задание звучит так:
Смормировать файл, имеющий следующую структуру type игрушка =record название: string
Цена: integer;
Возраст 1:l..16;
Возраст 2:l..16;
End;
И определить:
-название самой дорогой игрушки
-список игрушек, которые подходят детям данного возраста.
-подобрать игрушки на данную сумму денег (все варианты)
В программе описано все кроме "-подобрать игрушки на данную сумму денег (все варианты)" помогите описать

program lab10;
const n=10;
type	
Toy=record
  nazva: string[40];
  age: integer;
  kol: integer;
  vozrast1: integer;
  vozrast2: integer;
  end;
var
 f : file of Toy;
 aToy : Toy;
 Toys : array[1..N] of Toy;
 i,d,A,B,x,max:integer;
 maxNazva : String[40];
 Count : Integer;

Begin

assign(f,'lab10.txt');
rewrite(f);
writeln ('Введите количество записей: ');
readln(Count);
for i:=1 to Count do
  begin
  write('type nazvanie ');
  readln(aToy.nazva);
  write('type cena ');
  readln(aToy.age);
  write('type kol-vo ');
  readln(aToy.kol);
  write('type vozrast ot ');
  readln(aToy.vozrast1);
  write('type vozrast do ');
  readln(aToy.vozrast2);
  write ( f, aToy );
  end;
Close(f);

writeln('vvedite summy kotoryu planirovali potratit');
readln(x);

writeln('vvedite diapazon vozrasta rebenka, nachinaya ot menshego k bolshemy, cherez probel ili enter');
readln(A,B);

assign(f,'lab10.txt');
reset(f);
Count := 0;
max:=0;
while not eof(f) do
 begin
 Count := Count + 1;
 read ( f, aToy );
 if aToy.age > max then
  begin
  max := aToy.age;
  maxNazva := aToy.nazva;
  end;
 if ( aToy.age<=x ) and ( aToy.vozrast1<=A) and ( aToy.vozrast2>=B) then
  begin
  write('nazva: ',aToy.nazva:15);
  write(' age: ',aToy.age:5);
  write(' kol: ',aToy.kol:5);
  write(' vozrast1: ',aToy.vozrast1:5);
  writeln(' vozrast2: ',aToy.vozrast2:5);
  end;
 end;
writeln;
writeln ('Самая дорогая игрушка : ');
writeln('nazva: ',maxNazva); writeln('max=',max);
close(f);
readln;
end.

срочно нужна помощь. помогите

[mss]

Бред какой-то ..

write('type cena '); // введите ЦЕНУ
readln(aToy.age); // введенную пользователем цену с какого-то перепугу пишем в поле "ВОЗРАСТ", ибо age (англ.) = возраст

[uppu.are]

отредактируй и покажи как правильно

[Stilet]

подобрать игрушки на данную сумму денег (все варианты)

Все игрушки, которые можно купить за имеющуюся сумму

...
 if aToy.age<=Переменная цены then Выводим эту игрушку
...

Это в цикле.

Бред какой-то ..

Не вижу бреда. Вполне все нормально.

[uppu.are]

2Stilet. можешь отправить готовый отредактированный код программы . спасибо

[mss]

Не вижу бреда. Вполне все нормально

Ну да, конечно нормально.
Пользователя просят ввести цену ("cena"), а то что он ввел записывают в поле возраст ("age").
По-вашему может и нормально, а по-нашему чушь.

[uppu.are]

это раздел критики или помощи?

[mss]

это раздел критики или помощи?

А мозгами пошевелить ?
НАМЕК же был прямой дан - ты что, спрашивается, пишешь в поле эйдж, если спросил у юзера ввести цену ?
Сам-то ты понимаешь что это несуразица ?

[uppu.are]

я понимаю. так вопрос в том что бы помог кто описать "-подобрать игрушки на данную сумму денег (все варианты)"

[uppu.are]

2Stilet. напиши отредактированный код плс