Pesquisa De Uma String Dentro De Uma String Em Pascal

Uses Crt;

var nomes : array[1..100] of string ;

var nome , continua, palavra , s : string;

var conta , i , tam_nome : integer;

var j, ct, n, m , w , tot_nomes : integer;

procedure coleta_nomes (var nome{s}: string);

begin

write(output, 'entre com um nome , em branco encerra : ');

readln(input, nome);

end;

begin

clrscr;

continua := 'sim' ;

palavra := 'oliveira' ;

while continua = 'sim' do

begin

coleta_nomes(nome);

conta := conta + 1;

nomes[conta] := nome ;

if nome = '' then

continua := 'nao'

end;

for w := 1 to conta - 1 do

begin

s := nomes[w];

ct := 0;

n := length(s); { tamanho da cadeia }

for i:=1 to n do

begin

{ Se o 1o. caractere da palavra for igual ao i-esimo caractere da frase

verifica os caracteres restantes da palavra tbem sao iguais }

if (upcase(s[i]) = upcase(palavra[1])) then

begin

m := length(palavra); { tamanho da palavra }

j := 1;

while ((i+j-1) <= n) and (j <= m) and (upcase(s[i+j-1]) = upcase(palavra[j])) do

j := j + 1; { proximo caractere da palavra }

if (j > m) then

ct := ct + 1; { encontrou uma ocorrencia da palavra na frase }

end;

end;

if ct > 0 then

begin

tot_nomes := tot_nomes + 1;

write('');

writeln('Nome :' , s );

end;

end;

write('');

writeln('Total de nomes que possui oliveira :' , tot_nomes