База даннх в паскале.Не могу найти ошибку

[terrannn]

Ошибка в запросе
код создания файла базы

program Baza_1;

type
film=record
nazv,strana,akter,zhanr:string[20];
god:1890..2010;
rezh:record
fam:string[25];
imya: string[15];
god_rozhdeniya: 1850..1990;
end;
end;
var
f:file of film;
x:film;
i:1..4;
begin

assign (f,'d:\kino.cfa');
rewrite(f);
for i:=1 to 4 do
with x, rezh do
begin
writeln('input nazv');
readln (nazv);
writeln('input strana');
readln (strana);
writeln ('input akter');
readln (akter);
writeln ('input zhanr');
readln (zhanr);
writeln('input god');
readln (god);
writeln('input familiya rezh-ra');
readln(fam);
writeln('input imya rezh-ra');
readln(imya);
writeln ('god_rozhdeniya rezh-ra');
readln(god_rozhdeniya);
write(f,x);
end;
close(f);
end.

код программы запроса (тут и нужна помощь )

program zapros;
uses CRT;

type
film=record
nazv,strana,akter,zhanr:string[20];
god:1890..2010;
rezh:record
fam:string[25];
imya: string[15];
god_rozhdeniya: 1850..1990;
end;
end;
Var
f:file of film;
x:film;
n:byte;
m,K:integer;
s:string;

begin

assign (f,'d:\kino.cfa');
reset(f);
writeln ('Kak budem iskat? (1-God, 2-strana or 3-rezhiser)');
readln (m);
N:=0;
while not eof(f) do
begin
read(F,x);
case m of
1:
begin
writeln('Vvedite god c kotorogo ocyshestvit poisk');
readln(K);
if x.god>K then
with x do
begin
n:=n+1;
writeln('FILM:');
writeln(nazv,' ',strana,' ',akter);
with x,rezh do
begin
writeln('rezhiser:');
writeln(fam,' ',imya,' ',god_rozhdeniya);
end;
end;

end;

2 :
begin
writeln('vvedite stranu poiska');
readln(s);
if x.strana=s then
with x do
begin
n:=n+1;
writeln('FILM:');
writeln(nazv,' ',strana,' ',akter);
with x,rezh do
begin
writeln('rezhiser:');
writeln(fam,' ',imya,' ',god_rozhdeniya);
end;
end;

end;
3:
begin
writeln('vvedite familiy rezhisera');
readln(s);
if x.rezh.fam = s then
with x do
begin
n:=n+1;
writeln('FILM:');
writeln(nazv,' ',strana,' ',akter);
with x,rezh do
begin
writeln('rezhiser:');
writeln(fam,' ',imya,' ',god_rozhdeniya);
end;
end;

end;
end;
if n=0 then
writeln('HE pravilniy vvod');
end;
readln;
end.