Program Pencarian Bagi Dua Membesar dengan Pascal

Belajar pascal lagi yuk, kali ini kita akan membuat sebuah program mengurutkan bilangan dengan sistem bagi dua, dimana bilangannya harus dalam keadaan terurut menaik/membesar/ascending. langsung ajah yaa....cap..cip..cus...

program BagiDuaMembesar;
uses wincrt;
type Larik = array[1..1000] of integer;
var
  L : Larik;
  Batas, target : integer;
procedure InPut(var L : Larik; n : integer);
var
  i : integer;
begin
  for i := 1 to n do
  begin
    write('Data Ke-',i,' : ');
    readln(L[i]);
  end;
end;
procedure Cari(n,x : integer);
var
  ketemu : boolean;
  i : integer;
  k,j,idx : integer;
begin
  i := 1;
  j := n;
  ketemu := false;
  while(not ketemu) and (i <= j) do
  begin
    k := (i+j) div 2;
    if L[k] = x then
      begin
        Ketemu := true;
        idx := k;
      end
    else
      if L[k] > x then j := k-1
        else i := k+1;
  end;
  if ketemu then writeln('Ditemukan di index ke ',idx) else
    writeln('Not found');
end;
begin
  write('Masukkan banyak data : ');
  readln(Batas);
  writeln;
  writeln('Masukkan data secara teurut menaik : ');
  InPut(L,batas);
  writeln;
  write('Data yang ingin dicari : ');
  readln(target);
  writeln;
  cari(batas,target);
end.




Setelah di run, maka akan muncul penampakan seperti berikut :