{F.5CA Winnie Leung (21)}
program Binary_search (input, output);
uses wincrt;
var name :array [1..6] of string;
    found :boolean;
    middle, numrec, low, high :integer;
    s_name :string;
begin
  name[1]:='Au Mary'; name[2]:='Cheung Rainbow';
  name[3]:='Chua Eiffel'; name[4]:='Hui Jackie';
  name[5]:='Ip Jocelyn'; name[6]:='Yip Eva';
  low :=1;
  high :=numrec;
  found :=false;
  numrec :=6;
  write('Enter the name to be seached:   ');
  readln(s_name);
  if (s_name < name[low]) or (s_name > name[high]) then
    writeln('Employee  ',s_name, ' is not found.');
  while (low<=high) and (not found) do
    begin
      middle :=(low + high) div 2;
      if s_name = name[middle] then
        found :=true
      else if s_name > name[middle] then
           low:=middle +1
             else
               high :=middle - 1;
             end;
      writeln('The found searched name is       ',s_name);
end.