Помогите а то уже голова кругом

[Денис123321]

Определить количество букв Е, Ю и Я в введенном предложении. Слова, в которых эти буквы встречаются более одного раза поставить в начале предложения

Я определил количество букв:

var s:string;
i,b1,b2,b3,k,l,a:integer;
begin
writeln('введите предложение');
readln(s);
for i:=1 to length(s) do
 begin
 if (s[i] = 'Е') or (s[i] = 'е') then inc(b1);
 if (s[i] = 'Ю') or (s[i] = 'ю') then inc(b2);
 if (s[i] = 'Я') or (s[i] = 'я') then inc(b3);
 end;
writeln('Е = ',b1);
writeln('Ю = ',b2);
writeln('Я = ',b3);
end.

НО не знаю как переместить слова.

[Aleksandr H.]

перед перемещением слов сделай вывод слов в которых эти буквы встречаются более одного раза

[Денис123321]

Но только как ?

[newerow1989]

type tArrs=array of string;

procedure Analiz(s:string; var st:tArrs);
var i,count:integer;
    s1:string;
begin
   count:=0;
   SetLength(st,0);
   While s<>'' do
   begin
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         Delete(s,1,i);
      end else
      begin
         s1:=s;
         s:='';
      end;
      If s1<>'' then
      begin
         count:=count+1;
         SetLength(st,count);
         st[count-1]:=s1;
      end;
   end;
end;

var s,z:string;
    i,j,b1,b2,b3,a:integer;
    st:tArrs;
begin
   writeln('введите предложение');
   readln(s);
   b1:=0;
   b2:=0;
   b3:=0;
   for i:=1 to length(s) do
   begin
      if (s[i] = 'Е') or (s[i] = 'е') then inc(b1);
      if (s[i] = 'Ю') or (s[i] = 'ю') then inc(b2);
      if (s[i] = 'Я') or (s[i] = 'я') then inc(b3);
   end;
   writeln('Е = ',b1);
   writeln('Ю = ',b2);
   writeln('Я = ',b3);
   Analiz(s,st);
   a:=0;
   For i:=Low(st) to High(st) do
   begin
      b1:=0;
      b2:=0;
      b3:=0;
      For j:=1 to Length(st[i]) do
      begin
         if (st[i][j] = 'Е') or (st[i][j] = 'е') then inc(b1);
         if (st[i][j] = 'Ю') or (st[i][j] = 'ю') then inc(b2);
         if (st[i][j] = 'Я') or (st[i][j] = 'я') then inc(b3);
      end;
      If (b1>1) or (b2>1) or (b3>1) then
      begin
         z:=st[i];
         For j:=i downto a+1 do
            st[j]:=st[j-1];
         st[a]:=z;
         Inc(a);
      end;
   end;
   For i:=Low(st) to High(st) do
      Write(st[i],' ');
   Writeln;
   Readln;
end.

[Денис123321]

Ваша программа не выводит все слова в которых есть е ю я на начало

[newerow1989]

Тогда вместо

If (b1>1) or (b2>1) or (b3>1) then

написать

If (b1>=1) or (b2>=1) or (b3>=1) then

(хотя бы одна буква)

[Денис123321]

Спасибо уже работает все

[newerow1989]