Задача на строки)

[manik136]

В каждом слове строки перенести все гласные в середину слова)
мама--> маам
..
..
..
Рекомендуется не использовать массив, go to, )
Мои мысли:
Ввел строку, ввел множ-во гласных)
Теперь нашел середину слова и ввел туда эти гласные(в любом порядке)

Может тут задействовать процедуру )
Как я помню, множества не различает одинаковые буквы.
То что смог написать :

var gl:set of char;
s,sl:string;
i:integer;

begin
gl:=['а','и', 'е', 'ё', 'ю' ,'у', 'я', 'о', 'ы'];
readln(s);
for i=1 to length(s) do
begin
if s[i]<>' ' then
sl:=sl+s[i];
begin

Написать на языке Паскаль (абс)