Бинарный и интерполяционный поиск

Program poisk;
var
a: array [1..20] of integer;
i,j,x,n,nx,c,r,l:integer;
flag:boolean;
begin
  writeln('vvedite razmer i element dlya poiska');
  readln(n,x);
    writeln('ishodnii massiv');
   for i:=1 to n do
      read(a[i]);
      write(a[i]:4);
      writeln;
     i:=0;
   repeat
       i:=i+1;
       flag:=false;
     for j:=n-1 downto i do
        if a[j] > a[j+1] then begin
          c:=a[j]; a[j]:=a[j+1]; flag:=true;
        end;
   until not flag;
   nx:=0; l:=1; r:=n;
   begin
    while l <= r do begin
     c:=(l+r) div 2;
     if x=a[c] then begin
       nx:=c; r:=l-1;
     end;
     if x > a[c] then r:=c-1;
     if x < a[c] then l:=c+1;
   end;
     writeln('otsortirovannii massiv');
    for i:=1 to n do
      write(a[i]:4);
    if nx=0 then writeln('ne naiden')
    else  writeln('4islu x',x,'raven element',a[nx])
  end;
  begin
  while l <= r do begin
       c:=l+(r-1)*(x-a[l]) div (a[r]-a[l]);
     if x=a[c] then begin
       nx:=c; r:=l-1;
     end;
     if x > a[c] then r:=c-1;
     if x < a[c] then l:=c+1;
   end;
     writeln('otsortirovannii massiv');
    for i:=1 to n do
      write(a[i]:4);
    if nx=0 then writeln('ne naiden')
    else  writeln('4islu x',x,'raven element',a[nx])
  end;
end.