Program Pencarian Beruntun

Program pencarian ;
Uses wincrt;
Var
L:array [1..100] of integer;
Bil,I,n:integer;
ul:char;
procedure tampil;
   begin
          write ('masukan banyak data:'); readln (n);
          for i:=1 to n do
          begin
          write ('data [',I,'] :');readln (L [i]);
          end;
   end;
procedure seq_search;
          begin
               write ('angka yang akan di cari:');readln (bil);
               i := 1;
               while (I bil) do
               begin
                i:=i+1;
               end;
               if (L[i]=bil)then
               writeln ('ditemukan pada elemen larik ke',i)
               else
                writeln ('tidak ditemukan');
          end;
begin 

Tampil;
Seq_search;
Writeln ;
End.