program mostrapalavra;
uses crt;
var frase:string;
palavra, palavra1:string;
letra:char;
x, flag:integer;
begin
clrscr;
frase:='';
palavra:='';
x:=1;
flag:=0;
repeat
write('Digite uma frase: ');
readln(frase);
until frase<>'';
repeat
write('Digite uma palavra para saber se consta da frase: ');
readln(palavra1);
until palavra1<>'';
while x<=length(frase) do
begin
letra:=frase[x];
case letra of
'a'..'z','A'..'Z':
begin
palavra:=palavra+letra;
repeat
x:=x+1;
letra:=frase[x];
palavra:=palavra+letra;
until (letra=' ') or (x=length(frase));


{writeln(palavra);}
if palavra=palavra1 then
begin
writeln('palavra ', palavra1, ' existe na frase');
flag:=1;
end;


palavra:='';
end;
end;
x:=x+1;
end;
writeln;
if flag=0 then
writeln('não existe');
readkey;
end.