Не работает поиск по символу и по году - PascalABC.NET

program var4_1;
uses crt;
const
   n = 10;
 
type
   books = record
      shifr: string[5];//Шифр книги
      fio: string[20];// Ф.И.О. авторов
      nazv: string[15];//Название 
      godizd: integer;//Год издания
   end;
   
var
 book : array[1..n]of books;
   i, k,gizd: integer;
   c: byte;
   shf:string;
 
procedure vvod;
var
   i: integer;
begin
   writeln('Введите количество записей');
   repeat
      readln(k);
   until k <= n;
   for i := 1 to k do
   with book[i] do
   begin
      writeln('Книга ', i);
      write('Шифр книги: '); 
      readln(shifr);
      write('Ф.И.О. авторов: '); 
      readln(fio);
      write('Название: '); 
      readln(nazv);
      write('Год издания: '); 
      readln(godizd);
   end;
end;
 
procedure print;
var
   i: integer;
begin
   writeln('Шифр ':5, 'Ф.И.О. авторов ':15, ' Название ':15, ' Год издания':16);
   for i := 1 to k do
      with book[i] do
         writeln(shifr:5, fio:15, nazv:14, godizd:11);
end;
 
procedure search;
var
   i: integer;
begin
   writeln('Введите год издания');
   readln(gizd);
   writeln('Введите 1-ую букву шифра');
   readln(shf);
   for i := 1 to k do
      if (gizd = book[i].godizd) and (shf = book[i].shifr) then
      writeln('Результаты:');
         writeln(book[i].shifr:5, '  ', book[i].fio:15, '  ', book[i].nazv:15, '  ', book[i].godizd:11);
   writeln('-------------------------------------');
end;
 
begin
   repeat
      writeln('1 - Внести данные');
      writeln('2 - Вывод записей');
      writeln('3 - Поиск');
      writeln('Другое - Выход');
      readln(c);
      case c of
         1: vvod;
         2: print;
         3: search;
      else exit;  
      end;
   until not (c in [1..3]);
end.

1 - Внести данные
2 - Вывод записей
3 - Поиск
Другое - Выход
1
Введите количество записей
2
Книга 1
Шифр книги: Aabe
Ф.И.О. авторов: Ivanjv
Название: Reqw
Год издания: 1960
Книга 2
Шифр книги: Asqw
Ф.И.О. авторов: Petrov
Название: Ecvds
Год издания: 1960
1 - Внести данные
2 - Вывод записей
3 - Поиск
Другое - Выход
2
Шифр Ф.И.О. авторов       Название      Год издания
 Aabe         Ivanjv          Reqw       1960
 Asqw         Petrov         Ecvds       1960
1 - Внести данные
2 - Вывод записей
3 - Поиск
Другое - Выход
3
Введите год издания
1960
Введите 1-ую букву шифра
A
 Asqw           Petrov            Ecvds         1960
-------------------------------------
1 - Внести данные
2 - Вывод записей
3 - Поиск
Другое - Выход