Сделать так чтобы файл был доступен после завершения программы

uses crt;
type abonent=record
             nb:integer;
             fm:string[15];
             im:string[15];
             ot:string[15];
             end;
     tfile=file of abonent;
var b:boolean;
procedure vvod(var f:tfile);
var a:abonent;
    k,i,j:integer;
begin
clrscr;
assign(f,'file.dat');
rewrite(f);
write('Сколько абонентов записать в файл k=');
readln(k);
for i:=1 to k do
with a do
 begin
  write('Номер читательского билета: ');
  readln(nb);
  write('Фамилия: ');
  readln(fm);
  write('Имя: ');
  readln(im);
  write('Отчество: ');
  readln(ot);
  write(f,a);
 end;
close(f);
b:=true;
writeln('Файл создан');
readln
end;
procedure add(var f:tfile);
var a:abonent;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
with a do
 begin
  write('Номер читательского билета: ');
  readln(nb);
  write('Фамилия: ');
  readln(fm);
  write('Имя: ');
  readln(im);
  write('Отчество: ');
  readln(ot);
 end;
seek(f,filesize(f));
write(f,a);
close(f);
writeln('Запись добавлена');
readln
end;
{удаление записи}
procedure del(var f:tfile);
var a,c:abonent;
    n,i,j,k,ud:integer;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
write('Номер читательского билета n=');
readln(n);
i:=0;
ud:=-1;
while (i<filesize(f))and(ud=-1) do{ищем нужный номер}
 begin
  seek(f,i);
  read(f,a);
  if a.nb=n then ud:=i
  else i:=i+1
 end;
if ud=-1 then writeln('Такого номера нет')
else
 begin
  if ud=filesize(f)-1 then{если последний}
   begin
    seek(f,filesize(f)-1);{встаем в последнюю запись}
    truncate(f);{обрезаем файл}
   end
  else
   begin
    for j:=ud to filesize(f)-2 do{идем вперед}
     begin
      seek(f,j+1);{переставляем - сдвигаем - записи вверх на 1}
      read(f,c);
      seek(f,j);
      write(f,c);
     end;
    seek(f,filesize(f)-1);{встаем в последнюю запись}
    truncate(f);{обрезаем файл}
   end;
   writeln('Запись удалена')
 end;
close(f);
readln
end;
procedure poisc(var f:tfile);
var a:abonent;
    fam:string[15];
    k:integer;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
write('Введите фамилию для поиска: ');
readln(fam);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  if a.fm=fam then
   begin
    k:=1;
    writeln(a.nb,' ',a.fm,' ',a.im,' ',a.ot);
   end;
 end;
if k=0 then writeln('Абонента с такой фамилией нет');
close(f);
readln
end;
procedure print(var f:tfile);
var a:abonent;
    i:integer;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
writeln('Список абонентов:');
if filesize(f)=0 then writeln('Все записи удалены')
else
 begin
  while not eof(f) do
   begin
    read(f,a);
    writeln(a.nb,' ',a.fm,' ',a.im,' ',a.ot);
   end;
 end;
close(f);
readln
end;
var f:tfile;
    w:char;
begin
clrscr;
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-создать файл');
writeln('2-добавить запись в файл');
writeln('3-удалить запись из файла');
writeln('4-найти запись в файле');
writeln('5-прочитать файл');
writeln('другое-выход');
readln(w);
case w of
'1':vvod(f);
'2':add(f);
'3':del(f);
'4':poisc(f);
'5':print(f);
else exit;
end;
until not (w in ['1'..'5']);
end.