Записи, проблема с вводом данных в поля записей Опции

[-Сергей-]

Вот тут попытался разобраться с записями, если не использовать массив то получалось, а вот как только понадобилось стала вылезать ошибка. немогу понять почему.
Сама задача такая: Поступают 10 анкет на обработку в анкете указанны: год, возраст,пол и 5 разных вопрос с возможностью ответить: да нет не знаю.
---
вшений фаил выглядит вот так:
2006 19 M da net nz net da da
…
…
----

const n=10;
type
TRec=record
age,year:word;
sex:string[2];
otvet:array[1..5] of string[2];
end;
TBase=array[1..n] of TRec;
var
f:text;
i,j:byte;
p:TBase;
begin
assign(f,'c:\a.jo.txt');reset(f);
begin
for i:=1 to n do
with p[i] do read(f,age,year,sex);
writeln(p[1].year);
end;
end.