Program searching

uses crt;

type
   angka= array[1..20] of integer;
var
   num:angka;
   a,n,i,cr,b:integer;
   keluar,off:boolean;
   kl:char;


begin
clrscr;
   write('Isikan N[angka] :');readln(n);
   for i := 1 to n do
   begin
      write('angka ',i,' : ');readln(num[i]);
   end;



   repeat
   write('Angka di cari : ');readln(cr);
   b:=1;
   repeat
   if b<=n then
   begin
      if (not( cr=num[b])) and (b<=n) then
        begin
           keluar:=false;
           inc(b);
        end
      else if b<=n then
      begin
         write('angka yang dicari ada pada index ',b);
         writeln();
         keluar:=true;
      end;
   end;

   until keluar;
   write('apakah anda ingin ulang cari [Y/N]: ');readln(kl);
   if upcase(kl)='Y' then
     off := false
   else if upcase(kl)='N' then
      off := true;
   until off;
readln;
end.