Sintaks / Listing / Script Program Pencarian Data dengan Metode Sequential Search

program mengurutkan_bilangan;
uses crt;

var
   y:array[1..100] of integer;
   a,b,n,i,c,temp,x:integer;
begin
     clrscr;
     writeln('************* Selamat Datang ************');
     writeln('** Program Pencarian bilangan metode Sequential search **');
     writeln('************ Selamat bekerja ************');
     writeln;
     write('Masukkan banyak bilangan : ');
     readln(n);
     writeln;
     for i:=1 to n do
         begin
              write('Masukkan bilangan ke-',i,' : ');
              readln(y[i]);
         end;
    writeln;
    write('Masukan Data yang dicari : ');
    readln(x);
    writeln;
    i:=0;
    while (i<n) and (y[i]<>x) do
    begin
        i:=i+1;
    end;
    if y[i]=x then
    begin
        writeln('Data ditemukan! Pada indeks ke-',i);
    end else
    begin
    writeln('Data tidak ditemukan!');
    end;
    readln;
end.