记录文件与readln问题

声明TPerRec=packed record
 a:integer;
 c:array [1..10] of real;
end;
var datafile:file of TperRec;
    perRec:TperRec;在读取记录时 while not eof(datafile) do
                readln(datafile,perRec);这一行报错，请各位大虾指正！