Can't read or write variables of this type

program KURSOVAYA;
{File kursovoy raboti Shvyrialkina I.I. 16-ZIE}
 
uses crt;
 
type
ZAP=RECORD
NAZ_FILM: string[20];
ZANR: string[10];
PROD_FILM: integer;
GOD_VIP: integer;
end;
 
var
spisok: file of ZAP;
x: ZAP;
K,L: integer;
 
begin
CLRSCR;
K:=0;
ASSIGN (spisok, 'spisok');
REWRITE (spisok);
WRITELN ('Dlya okonchaniya raboti nazmite Enter');
WRITELN ('Dlya okonchaniya raboti nazmite *');
WHILE NOT (READKEY='*') DO
begin
WRITELN ('______________________________');
WRITELN ('Vvedite nazvanie filma <=20 simvolov');
READLN (X.NAZ_FILM);
WRITELN ('Vvedite zanr filma <= 10 simvolov');
READLN (X.ZANR);
WRITELN ('Vvedite prodolzitelnost filma');
READLN (X.PROD_FILM);
WRITELN ('Vvedite God Vipuska filma');
READLN (X.GOD_VIP);
K:=K+1;
WRITE (x,spisok);
WRITELN ('Dlya prodolzeniya vvoda nazmite Enter');
WRITELN ('Dlya okonchaniya vvoda nazmite *');
end;
 
CLRSCR;
WRITELN ('V faile ',K:5,' zapisey');
 
RESET (spisok);
 
WHILE NOT EOF (spisok) DO
begin
READ (x,spisok);
WRITELN (X.NAZ_FILM:20,X.ZANR:10,X.PROD_FILM:3,X.GOD_VIP:4);
end;
WRITELN ('Konec faila');
CLOSE (spisok);
end.

READ (x,spisok);

READ (spisok, x);