Вопрос по pascal'ю АВС.

[daniil-640]

в общем подскажите в чем ошибка, массив записей, состоящий из 2 общих полей и трех вариантов типа объекта. не могу понять как исправить ошибку 121.

program sss;

type
kind = (paren,devyshka);
men = record
fio: string[40];
sex: char;
case member: kind of
 paren: (ves: integer;
slyzba: string[5];
group:string[10]);
devyshka: (rost: integer;
stipendiia:integer;
year: byte;)
end;
var
mass:array [1..10] of ^kind;
i:byte;
begin
for i:=1 to 10 do
mass[i]:=nil;
for i:=1 to 2 do begin
write ('FIO'); read(mass[i]^.fio);
write ('pol'); read(mass[i]^.sex);
   end;
for i:=1 to 3 do      begin
write ('slyzba'); read(mass[i]^.slyzba);
write ('group');  read(mass[i]^.group);
write ('stipyxa') read(mass[i]^.stipendiia);
write ('gor rozgdeniia'); read(mass[i]^.year);
end;

readkey;
end.

[New man]

mass:array [1..10] of ^kind;

Может быть

mass:array [1..10] of ^men;

и в третьем цикле надо добавить условие if mass<>nil