Программирование задач с типом file

Program Lab9_10_V7;
  uses crt;
  type
    Books=record
          Kod,God,Mesto:integer;
          Avtor:string[20];
          Name:string[20];
          end;
  var
    otv:1..3;
    F:file of books;
    im:string[10];
    Info:books;
    
 procedure vvod; // Процедура ввода
  label 1,2;
  var
    otv:0..3;
    i:integer;
  begin
    i:=0;
    1:writeln('Введите имя файла: ');
    readln(im);
    if FileExists(im)=true then begin
                                writeln('Файл с таким именем существует');
                                writeln('Введите вариант работы: ');
                                writeln('________________________________________________________________________________');
                                writeln('1 - Удалить все данные и ввести новые');
                                writeln('2 - Дополнить существующий файл новыми данными');
                                writeln('3 - Задать новое имя');
                                writeln('________________________________________________________________________________');
                                readln(otv);
                                  case otv of
                                    1:begin
                                      assign(f,im);
                                      rewrite(f);
                                      goto 2;
                                      end;
                                    2:begin
                                      assign(f,im);
                                      reset(f);
                                      seek(f,FileSize(f));
                                      goto 2;
                                      end;
                                    3:goto 1;
                                  end;
                                end;
  assign (f,im);
  rewrite(f);
  2:writeln('Ввод сведений о книгах');
  writeln('________________________________________________________________________________');
  repeat
  i:=i+1;
  clrscr;
  writeln('Введите данные',i,' -ой книги');
  writeln('________________________________________________________________________________');
  writeln('Шифр книги: ');
  readln(info.kod);
  writeln('Автор: ');
  readln(info.avtor);
  writeln('Название: ');
  readln(info.name);
  writeln('Год издания: ');
  readln(info.god);
  writeln('Местоположение (номер шкафа): ');
  readln(info.mesto);
  write(f,info);
  writeln('________________________________________________________________________________');
  writeln('Исчерпан список ввода? 1 - нет, 0 - да: ');
  readln(otv);
  until otv=0;
 end; // Конец процедуры ввода
 
 procedure vivod; // Процедура вывода
  var
    Name1:string[20];
    Avtor1:string[20];
    prizn_poiska:0..1;
 begin
  clrscr;
  writeln('Введите имя файла: ');
  readln(im);
  if FileExists(im)=false then begin
                               writeln('Файла с таким именем не существует! Нажмите любую клавишу.');
                               readkey;
                               exit;
                               end;
  prizn_poiska:=0;
  writeln('Введите данные для вывода информации: ');
  write('Имя автора: ');
  read(avtor1);
  write('Название книги: ');
  read(name1);
  // Заголовок программы
  clrscr;
  writeln('________________________________________________________________________________');
  writeln;
  writeln('       Шифр книги : Год издания : Местоположение');
  writeln('________________________________________________________________________________');
  writeln;
  assign(f,im);
  reset(f);
  read(f,info);
  while not eof(f) do begin
                      with info do begin
                                   if (Avtor1=Avtor) and (Name1=Name) then begin
                                                                           prizn_poiska:=1;
                                                                           writeln(kod,god,mesto);
                                                                           end
                                                                      else prizn_poiska:=0;
                                   end;
                      read(f,info);
                      end;
  writeln('________________________________________________________________________________');
  if prizn_poiska=0 then begin
                         writeln('Книг с такими критериями поиска нет.');
                         writeln('________________________________________________________________________________');
                         end;
  writeln('Посмотрите результат и нажмите любую клавишу.');
  close(f);
  readkey;
  end; // Конец процедуры вывода
  
 begin // Начало основной программы
  repeat
  clrscr;
  writeln('Введите вариант работы с программой: ');
  writeln('________________________________________________________________________________');
  writeln('Формирование файла сведений о книгах - 1;');
  writeln('Поиск и вывод информации - 2;');
  writeln('Закончить работу с программой - 3;');
  writeln('________________________________________________________________________________');
  readln(otv);
    case otv of
      1:vvod;
      2:vivod;
      3:exit;
    end;
  until false;
 end.