Вывести слова, содержащие буквы «о» и «е»

const r='.,;;?! ';
var tekst: string;
slovo: string[25];
i: byte;
begin
write('Введите текст - '); readln(tekst);
tekst:= tekst+' ';
slovo:= '';
writeln('В заданном тексте имеются следующие слова:');
for i:=1 to length(tekst) do
if pos(tekst[i], r)=0
then slovo:=slovo+tekst[i]
else begin
if slovo<>'' then writeln(slovo);
slovo:= ''
end;
end.

const o='о';
e='е';
p='О';
q='Е';
r=' ,.';
var  s,t:string;
i,j,k:integer;
begin
write('Введите текст: ');
readln(s);
s:=s+' ';       {Чтобы текст всегда заканчивался разделителем}
writeln('Cлова, содержащие буквы "о" и "е": ');
for i:=1 to length(s) do begin
if pos(s[i],r)=0
then t:=t+s[i]
else begin
if (t<>'') then  begin
for j:=1 to length(t) do begin
if (pos(t[j],o)<>0) or (pos(t[j],e)<>0) or (pos(t[j],p)<>0) or (pos(t[j],q)<>0)
then begin
writeln(t);
k:=k+1;   {Считаем количество выведенных слов}
end;
end;
t:='';     {Обнуляем переменную, для нормального вывода ответа}
end;
end;
end;
if k=0 then writeln('Таких нет');     {Если ни одно слово не подходит по условию}
end.