Текстовые файлы!!!(Очень важно)

[DomiNik]

Создать файл, содержащий сведения об ассортименте игрушек в
магазине. Структура записи – название игрушки, цена, количество, возрас-
тные границы, например 2÷5, т.е. от двух до пяти лет. Количество записей –
произвольное.
Найти игрушки, которые подходят детям от 1 до 3 лет. Определить
стоимость самой дорогой игрушки и ее наименование. Определить игруш-
ку, которая по стоимости не превышает Х руб. и подходит ребенку в воз-
расте от А до В лет. Значения Х, А, В ввести с терминала.

Вот то что я сделал, исправьте если что не так, но работает она не верно(


program lab10;
const n=10;
var i,d,A,B,x,max:integer;
age:array[1..n] of integer;
kol:array[1..n] of integer;
vozrast1:array[1..n] of integer;
vozrast2:array[1..n] of integer;
f:text; nazva:array[1..n] of string;
begin
{assign(f,'d:\lab10.txt');
rewrite(f);
for i:=1 to n do begin
write('type nazvanie ');
readln(nazva[i]);
write('type cena ');
readln(age[i]);
write('type kol-vo ');
readln(kol[i]);
write('type vozrast ot ');
readln(vozrast1[i]);
write('type vozrast do ');
readln(vozrast2[i]);
writeln(f,nazva[i]);
writeln(f,age[i]);
writeln(f,kol[i]);
writeln(f,vozrast1[i]);
writeln(f,vozrast2[i]);
writeln;
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,'d:\lab10.txt');
reset(f);
max:=0;
for i:=1 to n do begin
readln(f,nazva[i]);
readln(f,age[i]);
readln(f,kol[i]);
readln(f,vozrast1[i]);
readln(f,vozrast2[i]);

if age[i]>max then max:=age[i];
writeln;
if ((age[i]<=x) and ((vozrast1[i]>=A) and (vozrast2[i]<=B))) then begin writeln('nazva: ',nazva[i]); writeln('age: ',age[i]); writeln('kol: ',kol[i]); writeln('vozrast1: ',vozrast1[i]); writeln('vozrast2: ',vozrast2[i]); end;
end;
writeln('nazva: ',nazva[i]); writeln('max=',max);
close(f);
readln;
end.

[DoDge_VipeR]

Структура записи – название игрушки, цена, количество, возрас-
тные границы, например 2÷5, т.е. от двух до пяти лет. Количество записей –
произвольное.

а где записи то в вашей программе?

[DomiNik]

"Запись" имеется в виду просто информация о данном товаре

[Serge_Bliznykov]

"Запись" имеется в виду просто информация о данном товаре

Вы заблуждаетесь!
"запись" - это такой тип данных
Поищите по форуму в разделе Паскаль по слову ТИПИЗИРОВАННЫЙ (так называются файлы с заданным типом) или по слову RECORD


в Вашем случае начало программы может выглядеть, например, так:

type
  Toy=record
    nazva: string[40];
    age: integer;
    kol: integer;
    vozrast1: integer;
    vozrast2: integer;
       end;
var
  f : file of Toy;
  Toys : array[1..N] of Toy;
....

[Z1000000]

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,'d:\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,'d:\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.