Esse exemplo demostra como é feita a pesquisa sequencial. Nele o usuário digita 10 valores (nomes de pessoas), esses valores são armazenados em uma matriz, depois é pedido ao usuário que entre com um nome a ser pesquisado. Esse valor é comparado a todos os valores da matriz e caso seja igual, é imprimido um texto na tela do usuário dizendo que o nome foi encontrado.

program PESQUISA_SEQUENCIAL;
var
nome: array[1..10] of string;
i: integer;
pesq: string;
resp: string;
acha: boolean;

BEGIN
writeln(‘Pesquisa sequencial de nomes’);
writeln;

{Entra com os nomes na Matriz}
for i:= 1 to 10 do
begin
write(‘Digiteo ‘, i:2, ‘o nome: ‘); readln(nome[i]);
end;
resp:=’sim’;

{Trecho que realiza o desejo de pesquisar Pesquisar = sim}
while (resp=’sim’) OR (resp=’SIM’) do
begin
{Rotina de pesquisa}
writeln;
write(‘Entre o nome a ser pesquisado: ‘); readln(pesq);
i := 1;
acha:= false;
while (i<= 10) and (acha=false) do Begin
if (pesq= nome[i]) then
acha:=true
Else
i:=i+1;
if (acha=true) then
writeln(pesq, ‘ foi localizado na posição ‘, i:2)
else
writeln(pesq, ‘ não foi localizado’);
{Fim da torina de pesquisa}

writeln;
{Pergunta se quer fazer novamente a pesquisa }
end;
write(‘Deseja continuar? sim/não: ‘);
readln(resp);
end;

END.