Распечатать все слова, в состав которых входят буквы "a", "o" или "и"

Var
  s,s1: String;
  k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
While s[1]=' ' do      {удаляем ведущие пробелы}
Delete(s,1,1);
While Pos('  ',s)>0 do     {удаляем лишние пробелы между словами}
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do   {удаляем конечные пробелы}
Delete(s,Length(s),1);
s:=s+' ';
k:=0;
Repeat
 s1:=Copy(s,1,Pos(' ',s));
 If (Pos('а',s1)<>0) or (Pos('о',s1)<>0) or (Pos('и',s1)<>0) Then
 begin
   Writeln(s1);
   Inc(k);
 end;
 Delete(s,1,Pos(' ',s));
until Length(s)=0;
If k=0 Then Writeln('Таких слов нет');
Readln
END.

Var
   s,st:String;
   i:Integer;
   set1:Set of char;
   f:Boolean;
BEGIN
set1:=[]; st:='';
Writeln('vvedite stroku:'); Readln(s); Writeln;
set1:=['а','о','и'];
While s<>'' Do Begin
      i:=1; f:=False;
      If s[i]=' ' Then While s[i]=' ' Do Delete(s,i,1);
      While s[i]<>' ' Do Begin
            If s[i] in set1 Then f:=True;
            Inc(i);
      End;
      If f Then Begin
         st:=Copy(s,1,i);
         Writeln(st);
      End;
      Delete(s,1,i);
End;
If st='' then Writeln('takih slov net');
Readln END.