Здравствуйте, almazmr!
Вот пример для PascalABC.NET с использованием типизированного файла. Данные для файла вводятся в виде:
машинка
120
3-6
кукла
140
5.
После первого запуска программы и формирования файла можно за комментировать блок формирования файла и программа будет работать с созданным ранее файлом.
[code lang=pascal h=250]type
assortiment = record {Описание записи ассортимент}
name : string[30]; {Название игрушки}
chena : integer; {Цена}
vozrast : string[10]; {Возрастное ограничение вид 3-9 или 6}
end;
var
F: File of assortiment;
spisok: assortiment;
i, y, min, max: integer;
v: string;
begin
i:= 0;
Assign(F, 'assort.dat');
{блок формирования файла assort}
rewrite(f);
for y:= 0 to 2 do
begin
readln(spisok.name);
readln(spisok.chena);
readln(spisok.vozrast);
write(f, spisok);
end;
CloseFile(F);
{конец блока формирования файла assort}
Reset(F);
Repeat
Seek(F, i);
Read(F, spisok);
inc(i);
v:= spisok.vozrast;
if Length(v) > 1 then
begin {Возрастные ограничения от до}
y:= pos('-', v);
min:= StrToInt(copy(v, 1, y - 1));
max:= StrToInt(copy(v, y + 1, length(v) - 1));
if (5 >= min) and (5 <= max) then
y:= 5;
end
else
if StrToInt(spisok.vozrast) = 5 then {Ограничение просто один числом}
y:= 5
else
y:= 1;
if (spisok.chena <= 140) and (y = 5) then {название игрушек, цена которых не превышает 140 руб. и которые подходят детям 5 лет}
begin
writeln ('название игрушки: ', spisok.name);
end;
Until eof(f);
CloseFile(F);
end.[/code]