Записи.Типизированные файлы

label menu;
type book=record
O:string; //ФИО,Название,Год
U:string; //УДК
B:string; //количество книг в формате string, нужно для перевода в int
K:integer; //количество книг
end;
var
biblioteka:array[1..100] of book;
i,j,l,v,udk,kol:integer;
f:text;
begin
  j:=1;
  assign(f,'D:\books1.txt'); 
  reset(f);
  while not eof(f) do begin //вытаскиваем данные из файла
    readln(f,biblioteka[j].O);
    inc(j);
  end;
  close(f);    
 
  for i:=1 to j do begin //забиваем массивы
    biblioteka[i].U:=Copy(biblioteka[i].O,1,3);
    biblioteka[i].B:=Copy(biblioteka[i].O,1,length(biblioteka[i].O));
    delete(biblioteka[i].B,1,length(biblioteka[i].B)-1);
    val(biblioteka[i].B,biblioteka[i].K,l);
    delete(biblioteka[i].O,1,4);
    delete(biblioteka[i].O,length(biblioteka[i].O)-1,2);
  end;
 
menu:  
writeln('Выберите действие:');
writeln('1. Книги в наличии');
writeln('2. Выдать книгу');
writeln('3. Вернуть книгу');
writeln('4. Выход');
readln(v);
case v of
1 : begin
      for i:=1 to j-1 do
          writeln(biblioteka[i].U,' ',biblioteka[i].O,' ',biblioteka[i].K);
      writeln;
      goto menu;
    end;
2 : begin
      writeln('Введите УДК:');
      readln(udk);
     for i:=1 to j do
        if IntToStr(udk) = biblioteka[i].U then begin
          if biblioteka[i].K=0 then writeln('Данной книги не осталось в наличии') else
          begin
            dec(biblioteka[i].K);
          writeln('В наличии осталось ',biblioteka[i].K,' экземпляра(ов) ',biblioteka[i].O);
          end;
      writeln;
      goto menu;
    end;
    end;
3 : begin
      writeln('Введите УДК:');
      readln(udk);
      for i:=1 to j do
        if IntToStr(udk) = biblioteka[i].U then begin
            inc(biblioteka[i].K);
            writeln('Успешно!');
          writeln('В наличии осталось ',biblioteka[i].K,' экземпляра(ов) ',biblioteka[i].O);
       
      writeln;
      goto menu;
    end;
    end;
4 : begin
      assign(f,'D:\books1.txt'); 
      Erase(f);
      assign(f,'D:\books1.txt'); 
      rewrite(f);
      for i:=1 to j-1 do
        writeln(f,biblioteka[i].U,' ',biblioteka[i].O,' ',biblioteka[i].K);
      close(f);
      exit;
    end;
end;
end.