Source Code Program Linear Searching Pada Delphi 7

Assalamualaikum
kali ini saya akan membagikan Source Code tentang program linear searching. linear searching adalah salah satu metode pencarian data. pada awalnya kita menginput jumlah data yang diinginkan. kemudian mengisi data tersebut dengan angka berbeda. kemudian mencari suatu inputan pada data yang sudah kita masukan, untuk mengetahui pada data keberapa inputan yang ingin kita cari tersebut.
berikut source codenya :)

program linear_sukran;

{$APPTYPE CONSOLE}

uses
  windows;


var
a : array[1..100] of integer;
i,jd, findvalue,n : longint;
continue : boolean;

begin
writeln('          BY SUKRAN (J1F113003)');
writeln;
writeln;
write('Masukan jumlah data yang akan dicari : '); readln(n);
writeln('Masukan data yang di input (angka): ');
for jd:=1 to n do
    begin
        write('Data ke - ',jd,' :');
        readln(a[jd]);
    end;
    writeln;
    write('Data yang akan dicari :');
    readln(findvalue);

    i:=1;
    continue:=true;
    while (i <= jd) and continue do
          begin

          if(a[i] = findvalue) then
          begin
          writeln;
          writeln('Data ditemukan pada data ke - ',i,' angkanya adalah ',findvalue);
          writeln('Terimakasih');
          continue := false;
          end;
          i:=i+1;
          end;


    if continue = true then
       begin
       writeln('Data tidak ditemukan');
       end;
readln;
end.

Terimakasih dan semoga bermanfaat .