База библиотеки

program pr;
uses crt;
type
books=record
cipher:integer;
author:string[50];
name:string[50];
publiced:integer;
location:integer;
end;
label goback;
var
x:integer;
boo:array[1..1000]of books;
f:file of books;
procedure fill();
var i,n:integer;
f:file of books;
begin
assign(f,'c:\booklist.txt');
rewrite(f);
writeln('Введите сколько книг хотите занести в базу: ');
read(n);
for i:=1 to n do 
begin
writeln('Введите шифр книги');
readln(boo[i].cipher);
writeln('Введите автора');
readln(boo[i].author);
writeln('Введите название');
readln(boo[i].name);
writeln('Введите год издания');
readln(boo[i].publiced);
writeln('Введите местоположение книги(стелаж)');
readln(boo[i].location);
write(f,boo[i]);
end;
close (f);
end;
procedure show();
var i:integer;
f:file of books;
begin
assign(f,'c:\booklist.txt');
reset (f);
    while not eof (f) do 
    begin
    inc(i);
        read(f,boo[i]);
        writeln(boo[i].cipher);
        writeln(boo[i].author);
        writeln(boo[i].name);
        writeln(boo[i].publiced);
        writeln(boo[i].location);
        writeln;
    end;
 
    close (f);
    end;
procedure add();
var i,n:integer;
f:file of books;
begin
assign(f,'c:\booklist.txt');
reset(f);
Seek(f, FileSize(f));
    begin
writeln('Введите сколько книг хотите занести в базу: ');
read(n);
inc(i);
begin
writeln('Введите шифр книги');
readln(boo[i].cipher);
writeln('Введите автора');
readln(boo[i].author);
writeln('Введите название');
readln(boo[i].name);
writeln('Введите год издания');
readln(boo[i].publiced);
writeln('Введите местоположение книги(стелаж)');
readln(boo[i].location);
write(f,boo[i]);
end;
close (f);
end;
end;
procedure DelZap();
var n,i:integer;
    boo:books;
begin
write('Удалить запись № ');
readln(n);
assign(f,'c:\booklist.txt');
Reset(f);
if (filesize(f)<n)or(n<0) then
 begin
  writeln('В файле нет такой записи');
  close(f);
  write('Press Enter...');
  readln;
  exit;
 end;
seek(f,n-1);
for i:=n-1 to filesize(f)-2 do
 begin
  seek(f,i+1);
  read(f,boo);
  seek(f,i);
  write(f,boo);
 end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
write('Press Enter...');
readln
end;
procedure info();
var i,v:integer;
f:file of books;
begin
assign(f,'c:\booklist.txt');
reset (f);
    while not eof (f) do 
    begin
    inc(i);
        read(f,boo[i]);
        writeln('Введите шифр нужной книги');
        readln(v);
        if (boo[i].cipher=v)then
        writeln(boo[i].cipher);
        writeln(boo[i].author);
        writeln(boo[i].name);
        writeln(boo[i].publiced);
        writeln(boo[i].location);
        writeln;
    end;
 
    close (f);
    end;
    procedure chan();
    var
    i,v:integer;
f:file of books;
begin
assign(f,'c:\booklist.txt');
reset (f);
    while not eof (f) do 
    begin
    inc(i);
        read(f,boo[i]);
        writeln('Введите шифр книги для изменения');
        readln(v);
        if (boo[i].cipher=v)then
        writeln('Введите шифр книги');
readln(boo[i].cipher);
writeln('Введите автора');
readln(boo[i].author);
writeln('Введите название');
readln(boo[i].name);
writeln('Введите год издания');
readln(boo[i].publiced);
writeln('Введите местоположение книги(стелаж)');
readln(boo[i].location);
write(f,boo[i]);
end;
close(f);
end;
begin
clrscr;
goback:
writeln('Здравствуйте,вы находитесь в меню библиотеки!');
writeln('Если вы хотите заполнить данные нажмите 1; если показать какие книги есть в базе,то нажмите 2;если хотите добавить книгу 3;если удалить запись 4; если получить информацию о книге 5;если изменить запись по шифру то 6;');
readln(x);
case x of 
1: fill();
2:show();
3:add();
4:DelZap();
5:info();
6:chan();
7:exit;
end;
clrscr;
goto goback;
readln;
end.