Типизированный файл Опции

[Merlin]

Условие задачи :

Создать типизированный файл, запись которого имеет следующую структуру: номер УДК, фамилию и инициалы автора, название книги, год издания, количество экземпляров данной книги в библиотеке. Вывести на экран в алфавитном порядке название книг, количество экземпляров которых больше 3.

Создание и обработку файла оформить в виде подпрограмм.

Program tip;
 const
    n=20;
  type
     knigi = record
                      fam, io, nazv_kn : string[20] ;
                      udk: real;
                      god_izd, kol : integer;
      end;
  
 Var
        kn: array[1..n] of knigi;
        i,j: integer; 
        temp:integer;

Begin
         writeln('Введите данные о книге');
         writeln('-----------------------------');
  for i:=1 to n do
     with kn[i] do begin
    writeln(' Введите номер УДК ');
       readln(n_UDK);
    writeln('Введите Фамилию');
       readln(fam);
    writeln(' Введите Иницалы автора ');
       readln(io);
    writeln('Введите название книги');
       readln(nazv_kn);
    writeln('Введите год издания'); 
       readln(god_izd);
    writeln('Введите кол-во экземпляров данной книги'); 
       readln(kol);
end;
 
  if  kn[i].kol > 3 then 

for i:=2 to n do
  for j:=n downto i do
     if  kn[j-1].nazv_kn > mass[j].nazv_kn then begin
       temp:=kn[j-1]; 
       kn[j-1]:=kn[j];
       kn[j]:=temp;
end;
  for i:=1 to n do
    writeln (kn[i].nazv_kn);
end;
readln;
   end.

Что то у меня с сортировкой "название книги" по алфавиту проблемы... , не знаю что делать
Остальное отладить я смогу, а в сортировке ошибка вылазит


И ещё вопрос: как переделать ввод массива в подпрограмму ?