Hjælp til assignfil

type
tspm=record
spmaal : string ;
svar 1 : string ;
end ;
var spm : tspm ;
begin
spm.aal : = edit.text ;
spm.svar : = edit2.text ;
assignfile (: fspm,-spm.prv-) :
reset ( spm) ;
read (spm,spm);
end ;
Kan ikke få assignfil til at virke hjælp Tak?