Бинарный поиск в файле

Program Lab_4;
Uses Crt; {подключение стандартного модуля}
Type
    Person = Record  {Тип запись}
               Number:integer;
               Name: string[15];
               Kurs:1..5;
               Predm:string[10];
               Ocenka:1..5;
             End;
    typefile= file of Person;
Var
    Chel:Person;
    Temp:person;
    Element:array [1..100] of person;
    fail: typefile;
    key,param,n,i:integer;
    obmen:boolean;
    ch:char;
    Nach, Konec, Sred:integer;
    poisk1,poisk3,poisk5:integer;
    poisk2,poisk4:string;
    Otvet1,Otvet3:integer;
    Otvet2:string;
 
 
Procedure Vvod_Zapisei;   {Подпрограмма ввода записей в типизированный файл}
Begin
Rewrite(fail);    {Подготовка файла для записи}
i:=0;
Writeln('Skolko zapisei gelaete vvesti?');
Readln(n);
For i:=1 to n Do      {Цикл ввода элементов массива}
  Begin
    Repeat
    {$I-} {Отключение системных сообщений об ошибках}
    Writeln;
    Writeln('Vvedite zapis:');
    Write('Number: '); Readln(Element[i].Number);
    Write('FIO: '); Readln(Element[i].Name);
    Write('Kurs: '); Readln(Element[i].Kurs);
    Write('Predmet: '); Readln(Element[i].Predm);
    Write('Ocenka: '); Readln(Element[i].Ocenka);
    {$I+} {Подключение системных сообщений}
    Until IOResult=0;{В случае некорректного ввода нужно ввести запись снова}
  End;
For i:=1 to n Do   {Цикл записи массива в типизированный файл}
  Begin
    Chel:=Element[i]; {Пременной типа запись присваиваем i-ый элемент}
    Write(fail,Chel);  {Запись перменной в файл}
  End;
Close(fail);  {Закрытие файла}
End;
 
Procedure Vivod_TypeFile; {Выводим на экран содержимое файла}
Begin
writeln('N zapisi|  N       FIO        Kurs    Predmet    Ocenka');
i:=1;
Reset(fail);  {Подготовка файла для чтения}
While not(eof(fail)) Do  {Цикл считывания записей из файла и вывода на экран}
Begin
Read(fail,Chel);
Writeln('Zapis #',i,': ',Chel.Number:2,Chel.Name:15,Chel.Kurs:6,Chel.Predm:14,Chel.Ocenka:6);
inc(i); {i:=i+1 т.е. увеличение паременной i на единицу}
End;
Close(fail);
End;
 
Procedure OdmenElm;   {Вспомогательная процедурка для сортировки.}
  Begin
      Temp:= Element[i];                 {Для того чтобы поменять местами }
      Element[i]:=Element[i+1];     {элементы массива, задействуем       }
      Element[i+1]:=Temp;              {временную переменную.                 }
      obmen:=true;{Произошел обмен элементов}
    End;
 
Procedure Sortirovka;{Основная процедура сортировки методом замещения(обмена)}
Begin
Writeln('Po kakomy polju poisk?');
Writeln('1. - Nomer.');
Writeln('2. - FIO.');
Writeln('3. - Kurs.');
Writeln('4. - Predmet.');
Writeln('5. - Ocenka.');           {Считываем параметр сортировки - поле,     }
Readln(param);                       {по которому нужно произвести сортировку}
Reset(fail);
i:=0;
While not(eof(fail)) Do  {Считываем записи из файла и заносим их в массив}
Begin
Read(fail,chel);
inc(i);
Element[i]:=Chel;
End;
n:=i;
 
{POISK}{вот здесь у меня не получается никак осуществить поиск}
For i:=1 to n Do
writeln('vvedite slovo dlja poiska');
readln(poisk);
  Nach:=1; Konec:=N;
  While
  Nach<Konec;
  Sred:=INT((Nach+Konec)/2)
  
  Case param of{Сравнение выбраных полей элементов}
  1: If Element[i].Number<poisk then Nach:=Sred+1;
  else Konec:=Sred;
  If  Element[Nach].Number=poisk then Otvet:=Nach; else Otvet:=0;
 
  2: If Element[i].Name> poisk then Nach:=Sred+1;
  else Konec:=Sred;
  If  Element[Nach].Number=poisk then Otvet:=Nach; else Otvet:=0;;
 
  3: If Element[i].Kurs>poisk then Nach:=Sred+1;
  else Konec:=Sred;
  If  Element[Nach].Number=poisk then Otvet:=Nach; else Otvet:=0;;
 
  4: If Element[i].Predm poisk then Nach:=Sred+1;
  else Konec:=Sred;
  If  Element[Nach].Number=poisk then Otvet:=Nach; else Otvet:=0;
  
  5: If Element[i].Ocenka> poisk then Nach:=Sred+1;
  else Konec:=Sred;
  If  Element[Nach].Number=poisk then Otvet:=Nach; else Otvet:=0;
 
  Return;
  End;
 
Writeln('Zapis #',i,': ',Otvet);
{Дополнительная возможность сохранения отсортированного массива}
Writeln('Sohranit otsortirovannii spisok v tipizirovannii fail?');
Writeln('(Yes - klavisha "y", No - lubaja klavisha)');
ch:=Readkey;  {Считываение нажатой клавши}
If (ch=#121){Код клавиши "Y"} or (ch=#89){Код клавиши "y"} then
Begin
  Rewrite(fail);
  For i:=1 to n Do  {Запись элементов массива в файл}
    Begin
      Chel:=Element[i];
      Write(fail,Chel);
    End;
End;
Close(fail);
End;
 
BEGIN {Основная программа}
Assign(fail,'ftype.dat'); {Файловая переменная связывается с именем файла}
Repeat
Clrscr; {Очистка экрана}
Writeln('Rabota s tipizirovannim failom.');  {Вывод меню программы}
Writeln('1. - Vnesti zapisi v fail.');
Writeln('2. - Vivesti fail na ekran.');
Writeln('3. - Sortorovka.');
Writeln('4. - Exit.');
Readln(key);
Case key of          {В соответствии с выбраным параметром вызывается }
  1: Vvod_Zapisei;   { нужная подпрограмма.                           }
  2: Vivod_TypeFile;
  3: Sortirovka;
End;
Readln;
Until key=4; {Программа заканчивает свое действие при выборе нужной клавиши}
END.