Исправьте программу (не правильный вывод)

uses crt;
const N = 20;
type arr = array[1..N] of integer;
var
    a: arr; i, j: byte;
    max, i_max,e: integer;
function search(var c: arr; elem: integer): byte;
    var m,i,j: integer;
    begin
        m := N div 2;
        i := 1;
        j := N;
        while (c[m] <> elem) and (i <= j) do begin
            if elem > c[m] then i := m + 1
            else j := m - 1;
            m := (i+j) div 2;
        end;
        if i > j then search := 0
        else search := m;
    end;
begin
    begin
    randomize;
    for i:=1 to N do begin
        a[i] := random(100)-50;
        write(a[i],' ');
    end;
      for j:=n downto 2 do
         begin
            max:= a[1];
            i_max:= 1;
         for i:= 2 to j do
            begin
            if a[i] > max then
               begin
                  max:= a[i];
                  i_max:= i;
               end;
              end;
             if (max > a[j]) then begin
                a[i_max]:= a[j];
                a[j]:= max;
               end;
      end;
 
end;
    writeln;
    write('Введите число: ');
    readln(e);
    i := search(a,e);
    if i = 0 then
        writeln('Числа нет')
    else
        writeln('Число ', e, ' находиться на ', i, ' месте');
end.

type zap=record
               ind,znc:integer;
               end;

       arr=array[1..n] of zap;