Дан текст. Составить программу, чтобы в тексте менялись местами соседние гласные буквы местами, если такие есть.

program t2;
uses crt;
const glas='аеёиоуыэюя';
var s:string;
i,n:integer;k:char;
begin clrscr;
write('введите текст'); readln(s);
for i:=1 to length(s) do
for k:=1 to ò do
 
 
writeln(s);
end.

const
  GlasLit = ['у', 'е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ю',
             'У', 'Е', 'Ы', 'А', 'О', 'Э', 'Я', 'И', 'Ю'];
var
  Str: string;
  Chr: char;
  i: byte;
begin
  write('Строка: ');
  readln(Str);
  for i:=2 to length(Str) do
    if (Str[i] in GlasLit) and (Str[i-1] in GlasLit) then
    begin
      Chr:=Str[i];
      Str[i]:=Str[i-1];
      Str[i-1]:=Chr;
    end;
  writeln('Результат: ', Str);
end.

var 
s:string;
a:char;
b1,b2:boolean;
begin
writeln('введите строку');
read(s);
for i:=1 to length(s)-1 do;{от 1 до длины строки}
 begin
 case s[i] of 
'б','в', 'г', 'д', 'ж', 'з', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ъ': begin b1:=true;
end;
case s[i+1] of 
'б','в', 'г', 'д', 'ж', 'з', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ъ': begin b2:=true;
end;
if (b1=true) and (b2=true) then  begin a:=s[i+1];s[i+1]:=s[i];s[i]:=a;
end;
writeln('результат:',s);
end.

var
s:string;
a:char;
b1,b2:boolean;
i:integer;
begin
writeln('введите строку');
read(s);
for i:=1 to length(s)-1 do
 begin
 case s[i] of
'а','е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я': b1:=true;end;
case s[i+1] of
'а','е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я': b2:=true;
end;
if (b1=true) and (b2=true) then  begin a:=s[i+1];s[i+1]:=s[i];s[i]:=a;
b1:=false;b2:=false;
end;
end;
writeln('результат:',s);
end.