Подскажите где я ошибся

[destra1j]

type book=record
 nazva:string[255];
 avtor:string[255];
 cena:string[255];
 paliturka:string[255];
 end;
const ProductFileName  = 'Product.db';
var
biblioteka :array [1..100] of book;
f : file of book;
i,n:integer;
begin
  If Not FileExists(ProductFileName) then begin
    Write('Сколько книг будете вводить: '); ReadLn(n);
    for I:=1 to n do begin
     writeln ('введите сведения о’, i , ‘-й книге'); 
     writeln ('введите название книги');
     readln (biblioteka[i].nazva); 
     writeln ('введите автора'); 
     readln (biblioteka[i].avtor); 
     writeln ('введите цену'); 
     readln (biblioteka[i].cena); 
     writeln ('введите палитурку 1-книжная,2-блокнотная'); 
     readln(biblioteka[i].paliturka); 
     end;
     writeln ('ввод закончен');
     
    Assign(f, ProductFileName );
    Rewrite(f);
    for i:=1 to n do Write(f, biblioteka[i]);
    Close(f);
  end
  else begin 
    Assign(f, ProductFileName );
    Reset(f);
    n:=0;
    while Not eof(f) do begin
       inc(n);
       Read(f, biblioteka[n])
    end;
    Close(f);
  end;
 writeln('введите вид палитурки 1-книжная,2-блокнотная');
 readln(n);
 for I:=1 to 100 do 
    if biblioteka[i].paliturka=n then 
    writeln(  biblioteka[i].paliturka);
 for I:=1 to 100 do
    If biblioteka[i].cena=h then
    writeln('переченькниг с указанной ценой');
  
  
end.

В частной библиотеке хранится информация о литературе: название книги, автор, цена, вид переплета. Найти:
• количество книг для каждого вида переплета;
• отсортированные по названию книги, цена которых входит в диапазон, указанный пользователем;
• среднюю цену книг указанного автора.

[Timon1989]

Как минимум сразу бросается в глаза, что у вас переменная h не имеет ни объявления, ни инициализации.