Файлы прямого доступа

[СергейJ63]

Помогите пожалуйста с работой.Разработать программу решения задачи поиска в массиве упорядоченных записей, находящихся в файле компонентного типа COMP.DAT с использованием алгоритма двоичного поиска.Чтение и файла производить методом прямого доступа.В общем работу я сделал, но почему то он не хочет находить шифр с буквой Р. Заранее спасибо

type z=record
       FIO:string [20];
       kniga:string[10];
       Shifr:string[10];
       year:integer;
       end;
Var zap,vrem:array [1..100] of z;
    f:text;
    d:file of z;
                n,i,zz,isk:integer;
    key,kk,nachalo,Konec,ser:byte;
    name:string;
BEGIN
N:=10;
Assign(d,'C:\COMP.DAT');
Reset(d);
nachalo:=1;
Konec:=N;
while nachalo <= Konec do
         begin
       ser:=(nachalo+Konec) div 2;
       Seek(d,ser);
       read(d,zap[ser]);
       with zap[ser] do
       if Shifr = 'Р' then
                begin
                 Writeln('Шифр книг,который начинаются с буквы "Р"');
                 Writeln ('ФИО     Книга      Шифр     Год издания');
                 Writeln ('  ',zap[ser].FIO:20,'            ',zap[ser].kniga:10,'           ',zap[ser].Shifr:10,'               ',zap[ser].year:4);
                 close(d);
                 exit;
                end
                else if isk=0 then Konec:=ser-1
                              else nachalo:=ser+1;
      end;
      writeln('Шифр книг,который начинаются с буквы "Р" не найдено');
      close(d);
 
END.

___________
к сожалению, до сих пор на форуме нет отдельного тега для оформления Pascal'ского кода!
Поэтому оформляйте просто тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.