Расчётная работа. Помогите Опции

[abv]

Создать массив записей, содержащих сведения об игрушках в торговой базе.
- Название игрушки(кукла, конструктор, робот и т.п.)
-ее стоимость
- Возрастные граници ребёнка, для которого предназначена игрушка.
Предусмотреть выдачу сведений:
а) О цене самой дорогой игрушки;
б) Об игрушках цена которых не привышает заданную величину;
в) Название игрушек которые подходят детям от 4 до10 лет.

Вот такое непростое задание. Помогите плиз.

[Jahnerus]

Как и обещал теперь прога читает файл с данными

Код

uses crt;
type
item = record
  title: string[30];{название}
  price: real;{цена}
  age_1,age_2: byte;{возраст}
end;
var
 i,n:byte;
 maxp:real;
 info: array[1 .. 255] of item;
 s:string;
 f:text;
 er:integer;
begin
assign(f,'c:\data.txt');{c:\data.txt - путь к файлу с данными}
reset(f);
repeat
  n:=n+1;
  readln(f,info[i].title);
  readln(f,s);
  val(s,info[i].price,er);
  if info[i].price>maxp then maxp:=info[i].price;
  readln(f,s);
  val(s,info[i].age_1,er);
  readln(f,s);
  val(s,info[i].age_2,er);
until eof(f);
close(f);
clrscr;
writeln('Цена самой дорогой игрушки ',maxp:4:2);
write('Введите величину ограничивающую стоимость ');
readln(maxp);
for i:=1 to n do begin
with info[i] do begin
  if price<maxp then begin
    writeln('Hазвание: ',title);
    writeln('Цена: ',price:4:2);
    writeln('Возростные границы: от ',age_1,' до ',age_2);
    writeln('Hажмите клавишу для вывода информации о следующей игрушке ');
    readkey;
  end;
end;
end;
writeln('Игрушек с ценой меньшей указанной вами больше нет');
writeln('Следующие игрушки подходят детям в возрасте от 4 до 10 лет');
for i:=1 to n do begin
with info[i] do begin
  if (age_1>3) and (age_2<11) then writeln(title);
end;
end;
readln;
end.

Кажется должно работать, не уверен потому что правил прямо здесь! ;)
Файл который читается должен выглядеть примерно так

Код

Паровоз
34.56
5
8
Самокат
90
7
14

ну вобщем и так далее ...

Сообщение отредактировано: Jahnerus - 18.11.2004 16:18