С клавиатуры вводится текст из строчных латинских букв. Ввод прекращается при нажатии клавиши Enter. Напечатать эту строку, предварительно преобразовав ее следующим образом: 1) заменить на ks первое вхождение x, если такое есть; 2) вычислить процентное содержание гласных букв в строке. Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.

//Pascal ABC.NET 3.1 сборка 1219

Var
 s:string;
 k,i:integer;
 se:set of char;
begin
se:=[A,E,I,O,U,a,e,i,o,u];
readln(s);
k:=pos(x,s);
if k0 then
begin
 delete(s,k,1);
 insert(ks,s,k);
end;
writeln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in se then inc(k);
write(Percent=,k/(length(s)/100));
end.

Пример ввода:
I3artle, Caster, exported from the Throne of Heroes.
Пример вывода:
I3artle, Caster, eksported from the Throne of Heroes.
Percent=30.188679245283