Файл об коллекции книголюба

uses
crt;
type zapis=record
     number_of_book:integer;
     autor:string[20];
     book:string[15];
     date_of_publication:integer;
     end;
     place=record
     number_of_cupboard:integer;
     number_of_shelving:integer;
     end;
var f:file of zapis;
kod:byte;
procedure menu;
     begin
     writeln('1.Шифр книги');
     writeln('2.Название книги');
     writeln('3.Имя автора');
     writeln('4.Дата издания');
     writeln('5.Местоположние');
     writeln('6.Выход');
     end;     
procedure add; 
var z:zapis;  i:integer; y:place;
begin
 write('Введите Шифр книги');
 readln(z.number_of_book) ;
 writeln('Введите автора');
 readln(z.autor);
 writeln('Введите название книги');
 readln(z.book);
 writeln('Дату публикации');
 readln(z.date_of_publication);
 writeln('Номер шкафа');
 readln(y.number_of_cupboard);
 writeln('Номер стеллажа');
 readln(y.number_of_shelving);
 if Fileexists('C:\Users\User\Desktop\books.dat')=false then rewrite(f) else reset(f); //опредялет сущ-ет файл с таким именем или нет
 reset(f);
 end;
 end;
 
 
procedure out;
var y:place; z:zapis;
    n,m:integer;
begin
(y.number_of_cupboard):=n;
(y.number_of_shelving):=m;
write('Введите номер шкафа');
readln(n);
write('Введите номер стеллажа');
readln(m);
reset(f);
while not eof(f) do begin
writeln('Список книг');
write(z.book);
close(f);
end;
end;
     begin
     assign(f,'books.dat');
     repeat
     clrscr;
     menu;
     readln(kod);
     case kod of
     1:add;
     5:out;
     end;
     until kod=6;
     end.