Index_awal  = 1;
  Index_akhir = 5;
  ketemu = 0 ;
  display ('masukkan nama yg dicari :');
  baca (mana_dia);
  selama Index_awal <= Index_akhir kerjakan
    writeln ('di sini');
    begin 
      index_tengah := (Index_awal + Index_akhir) div 2;
      if nama[index_tengah] = mana_dia then
         Index_awal := Index_akhir
      else    
         if nama[index_tengah] > mana_dia then
            begin
              Index_awal := index_tengah + 1
            end
         else 
            begin
              Index_akhir:= index_tengah - 1 
         end
  end;
  if ketemu=1 then
     begin 
       writeln('nama yang dicari ada diurutan :', index_tengah);
       writeln('yaitu :', nama[index_tengah]);
     end;  
end.