type
st=string[5];

Zveno=^r;
r= record
s:st;
next,pred:zveno;
end;

var
spisok,begun:zveno;

{Сортировка}
procedure TForm1.Button7Click(Sender: TObject);
var x1,sp:zveno;

s,a1:st;
begin
sp:=spisok^.next;       {Первый значащий элемент списка}
while sp^.next<>nil do
begin
x1:=sp;
s:=x1^.next^.s;          {Инф. из списка после первого}
while (x1^.pred<>nil) And (s<x1^.s) Do
begin
a1:=x1^.s;
x1^.s:=x1^.next^.s;
x1^.next^.s:=a1;

  x1:=x1^.pred;
end;
x1^.next^.s:=s;
x1:=sp^.next;
sp:=sp^.next;


end;

P3.Enabled:=true;
end;


{-----Процедура поиска элемента списка по номеру, зная начальный-----}
procedure spi(nast,k:integer; var spis:zveno);
var l,i:integer;
begin
i:=0;
l:=abs(nast-k);         {Столько нужно пролистать}
if nast>k then          {Если счас номер эл. списка больше искомого, то искать "назад"}
while l>i do
begin
i:=i+1;                 {Счётчик пролистаных звеньев}  
spis:=spis^.pred;
if spis^.pred=nil then exit;
end
  else
if nast<k then          {Если счас номер эл. списка меньше искомого, то искать "вперёд"}
while l>i do
begin
i:=i+1;                 {Счётчик пролистаных звеньев}
if (spis^.next=nil) then exit;
spis:=spis^.next;
end
end;


{-----Поиск в списке-----}
procedure TForm1.P3Click(Sender: TObject);
Var i,i1,m,n:Integer; b:Boolean;
x:st;
sp:zveno;
 Begin
x:=edit1.text;   label7.Caption:='0';
sp:=spisok^.next;
   n:=1;                       {Начальный номер эл. списка}
   i:=1; i1:=j;                {На первом шаге рассматривается весь массив.}
   b:=False;                   {Признак того, что Х не найден.}
While (i<=i1) And Not b Do      {Пока нижняя граница меньше= верхней}
Begin
 m:=(i+i1) Div 2;              {Среднее}
 spi(n,m,sp);                  {Процйедура поиска нужного звена}

 If sp^.s=X Then b:=True       {Элемент найден, поиск прекращается.}
  Else If sp^.s <X Then i:=m+1 {Исключаем из рассмотрения левую часть списка }
   Else i1:=m-1;               {Правую часть.}
n:=m;                           {Запомнить, проверенное звено}
End;

if b then label7.Caption:=inttostr(m);

End;