Как сделать надпись "файл не создан" если нужно его прочитать но файл ещё не создан? - Pascal ABC

uses crt;
Type students=record
p:string[15]; 
dt,opm,opf,opp,kp,sb:integer; 
End; 
 
Var f:file of students; 
    fn:string; s:students; i,k:byte; SP:array[1..100] of students; v:char;
 
procedure create(filename:string);
begin
clrscr; 
textcolor (8);
Assign(f,filename); rewrite(f); 
 
I:=0; v:='n'; 
 While v<>'y' do 
 Begin i:=i+1;   
  Writeln(I,'student:'); 
  Write('familija: ');read(s.p); 
  Write('data rozhdenija: '); read(s.dt); 
  Write('ocenka po matematike: ');read(s.opm);
  Write('ocenka po fizike: ');read(s.opf); 
  Write('ocenka po programmirovaniju: '); read(s.opp); 
  Write('kolichestvo propyskov: ');read(s.kp);
  Write('summa balov za ekzamenu: ');read(s.sb);
  Write(f,s); 
  Write('Exit ? (Y/N)'); 
  Readln(v);
  readln (v); 
 End; 
Close(f); 
end;
 
procedure list(Filename:string);
begin
Assign(f,filename);
Reset(f); i:=0;
Writeln(' familija   data r.  math.  fiz.  progr.  kol. prop.  summa b. za ekz.'); 
While not(EOF(f)) do 
Begin 
Read(f,s); i:=i+1;
With s do 
  Writeln (i,')',p:5, dt:10, opm:6, opf:7, opp:7, kp:10, sb:15); 
End; 
close(f);
end;
 
procedure readfile(filename:string);
begin
Assign(f,filename);
Reset(f); k:=0;
While not(EOF(f)) do 
  begin k:=k+1; Read(f,sp[k]); end;
  
close(f);
end;
Begin 
fn:='spisok.dat';
 
repeat
writeln('Выберите действие:');
writeln('   1. Создание нового списка');
writeln('   2. Просмотр списка');
 
writeln('   7. Выход');
readln(v);
 
case v of
'1':create(fn);
'2':list(fn);
 
end;
 
until v='7';
 
end.