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

[Error)(viRUS]

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

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

[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.