Ошибка в тексте программы Pascal

[daniil2010]

Сформировать файл, содержащий п записей о работниках предприятия. Записи должны содержать следующие сведения: ФИО, оклад, должность. Вывести фамилии и должности тех, чей оклад ниже среднего по предприятию.

Как исправить?

program n7;

uses
crt;

type
sotr = record
fio: string;
oklad: integer;
prof: string;
end;

var
f: file of sotr;//ошибка N7.PAS(14) : Типизированый файл не может содержать элементы такого типа
i, n, k: byte;
x: integer;
a: sotr;
pro: string;

begin
clrscr;
assign(f, 'sotr.dat');
rewrite(f);
write('N=');
readln(n);
for i := 1 to n do
begin
write('FIO ');
readln(a.fio);
write('oklad=');
readln(a.oklad);
write('Prof ');
readln(a.prof);
write(f, a);
end;
close(f);
reset(f);
x := 0;k := 0;
while not (eof(f)) do
begin
k := k + 1;
read(f, a);
x := x + a.oklad;
end;
x := x div k;
close(f);
reset(f);

write('Professia ');
readln(pro);
writeln;
while not (eof(f)) do
begin
read(f, a);
if (a.prof = pro) and (a.oklad >= x) then
begin
writeln('FIO ', a.fio);
writeln('Oklad=', a.oklad);
writeln('Prof ', a.prof);
end;
end;
close(f);
end.

[Serge_Bliznykov]

задайте длины строк в типе запись. например:

type
sotr = record
  fio: string[30];
  oklad: integer;
  prof: string[50];
end

[ROMA2PVT]

У меня так вообще небыло ошибки.

[Базиля]

Код который в 1-ом посте успешно запускается. Не знаю в чем у вас проблема.
P.S. Только программа не работает по условию.