Задача с параметром Record (запись), Не знаю как решить Опции

[Error)(viRUS]

Пожалуйста, помогите... Надеюсь на вас. :molitva:
Вот задача:

Данные о детали:
Название, материал, цена, год выпуска.
Ск. Имеется на складе деталей, выпущенных в период от X до Y гг, сделанных из чугуна и их цена <Z

[volvo]

Пользуйтесь поиском, здесь десятки решенных задач, подобных этой...

[Error)(viRUS]

Volvo Я просто плоха знаю Программирование и надеялся что кто нибуть ответит - напишет решение, ну ни как не отправит на поиск.
Ко всем:
Может кто нить напишет решение please. :molitva:

А читать Вы тоже плохо умеете? Правила для кого?

[Error)(viRUS]

Volvo
Такую ещё не решали, я уже пошарил в поиске.

[volvo]

А точно такой же и не будет... Ищите подобную и меняйте формат данных...

[Error)(viRUS]

Volvo
Ну подскажи please, ты же знаешь как решить эту задачу... я так думаю Мне завтро просто здавать её уже надо, а сам я ничего сделать не могу. Очень надеюсь на помощь.

[virt]

Код

program detalki_na_sklade;
type det=record
           name:string[10];
           material:string[10];
           cost:integer;
           god:integer;
        end;

var a:array[1..1000]of det;
   n,i:integer;
   cou,z:integer;
   x,y:integer;

begin
  read(n);
  for i:=1 to n do
     with a[i] do
     begin
        readln(name);
        readln(material);
        readln(cost,god);
     end;
  readln(z);
  readln(x,y);
  cou:=0;
  for i:=1 to n do
     with a[i] do
        if (material = 'chugun') and (cost < z)  and (god >= x) and (god <= y) then
           inc(cou);
  writeln(cou);
end.

[Altair]

offtop (просто не могу молчать)

а сам я ничего сделать не могу.

ТАК ТЫ И НЕ ПЫТАЕШЬСЯ!!!!!!!!!!
Зачем ты тогда вообще собрался взять готовый код? ну нафиг тебе это надо?
ты же не хочешь учиться, брось институт иди работай, если нет мозгов, зачем мучаться в ВУЗе, и вот так вот лазить по форумам в поисках помощи ... ????

p.s. извините за грубость, если что, к п4 правилам форума не относиться..