Массив записей Опции

[swe-4a]

Дан массив записей, содержащий сведения о деталях на складе: номер детали, название детали, стоимость детали, план выпуска, дата выпуска (год), признак прохождения ОТК. Подсчитать стоимость деталей 2008 года выпуска.

Program Examlpe3;

type Tsklad = record 
       nd  : integer;     //  Номер детали
       im   : string;      //  имя детали
       c   : integer;     //  стоимость детали
       k   : integer;     //  план выпуска
       g   : integer;     //  год выпуска
       otk : integer;     //  отк
end;
 var sklad: array[1..5] of  integer;   
       i,n,s:integer;     //  s- сумма деталей
    
begin
write('Введите кол-во ltnfktq n,n<5: '); Readln(n);
    //Ввод данных  
for i:=1 to n do
 begin
   writeln('sklad ',i);
   write('Номер детали       : '); readln(sklad[i]. nd);
   write('имя детали         : '); readln(sklad[i]. im );
   write('стоимость детали   : '); readln(sklad[i]. c );
   write('план выпуска       : '); readln(sklad[i]. k );
   write('год выпуска        : '); readln(sklad[i]. g );
   write('отк                : '); readln(sklad[i]. otk);
   writeln;
  end;
 for i:=1 to n do
    with sklad[i] do  begin
        if  (g = '2008') then begin
s:=0;
s:=c*k;
writeln(' = ',s:7:2);
end;
readln;
end;
 end.

компилятор выдает не объявлен nd не объявлен в типе integer!!!!!! ПОМОГИТЕ!!!!!!

Теги используй, без них программа нечитабельная...

Сообщение отредактировано: volvo - 25.01.2011 12:24