Добавить в программу двоичный поиск

Type
 tzap=record {Описание типа для одной записи списка}
 shifr:string[5];
 nai:string[20];
 kol:integer;
 price:real;
 end;
const n=5;
Var Spis:array[1..n]of tzap; {Описание списка}
 i,j:byte;
 x:tzap;
 
 
 Begin
 begin
 
 Writeln('Введите список по полям - каждое поле с новой строки');
 For i:=1 to N do
 With Spis[i] do
 begin
Write(' Шифр - 5 символов ');
Readln(shifr);
Write(' Наименование - 20 символов ');
Readln(nai);
Write(' Количество = ');
Readln(kol);
 Write(' Цена товара = ');
 Readln(price);
 end;
 
 {Oрганизация поиска заданного товара в массиве записей Spis}
WriteLn('Удовлетворяют запросу товары:');
WriteLn;
 with Spis[i] do
  begin
//сортировка по убыванию цены
for i:=1 to n-1 do
for j:=i+1 to n do
if spis[i].price<spis[j].price then
 begin
  x:=spis[i];
  spis[i]:=spis[j];
  spis[j]:=x
 end;
  for i:=1 to N do
 if price < 20000 then
 begin
writeln('шифр: ',spis[i].shifr );
WriteLn('наименование: ',spis[i].nai);
WriteLn('количество: ',spis[i].kol);
WriteLn('цена:',spis[i].price);
 end;
End;
readln;
end;
end.