паскаль работас фалами обясните почему ошибка и как исправить f= file of ysp; на of мигает и просит душки

[zavarka_dok]

program prog;
uses crt;
type
ysp=record
ng:integer;
ps:string;
sb:integer;  end;
const n=6;
grupa: array[1..n] of ysp =((ng:1;ps:'ivanov';sb:1),
(ng:3;ps:'bilous';sb:5),
(ng:1;ps:'konyshniak';sb:3),
(ng:1;ps:'ykrainec';sb:4),
(ng:2;ps:'kirushen';sb:3),
(ng:3;ps:'petrov';sb:4)) ;
f= file of ysp;
assign(f,'mayfile');
var
d:array[1..n]of integer;
s,k,e,j,i:integer; begin
textcolor(13);
clrscr;
e:=1;
k:=1;
reset(f);
while not eof(f) do begin
for i:=1 to n do
with grupa[i] do begin
writeln ('ng',ng:2,'ps':3,ps:12,'sb':4,sb:2); end;
while n<>k-1 do begin
for i:=1 to n do begin
if grupa[i]. ng= e then begin
d[k]:=i;
k:=k+1;
 end;
 end;
e:=e+1;
end;
for i:=1 to n do
with grupa[d[i]] do begin
writeln ('ng',ng:2,'ps':3,ps:12,'sb':4,sb:2); end; writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if (grupa[i].sb>grupa[j].sb) and (grupa[i].ng=grupa[j].ng) then begin
s:=grupa[i].sb;
grupa[i].sb:=grupa[j].sb;
grupa[j].sb:=s; end;
for i:=1 to n do
with grupa[d[i]] do begin
writeln ('ng',ng:2,'ps':3,ps:12,'sb':4,sb:2); end;
else(f) ;
redkey
end.

[Naive]

f: file of ysp;

засуньте в вар