Перевод кода в 1С

[AlexWitcher]

Добрый вечер, помогите пожалуйста перевести код с Pascal на 1С. Программа удваивает каждую гласную букву во введенном тексте.

Код Выделить Развернуть


Const m=['A','E','I','O','U','Y'];
Var s:string;
    i,k:byte;
Begin
    write('Введите текст: ');readln(s);
    k:=Length(s);
    For i:=Length(s) downto 1 do 
     if Upcase(s[i]) in m then Insert(s[i],s,i);
    writeln('Полученная строка = ',s);
    writeln('Добавленных букв = ',Length(s)-k);
    readln;
End.

Очень нужно, пожалуйста!

[antoneus]

Код Выделить Развернуть

Стр = "";
Если ВвестиСтроку(Стр, "Введите текст") Тогда
Гласные = "AEIOUY";
Длина = СтрДлина(Стр);
Результат = "";
Для Поз = 1 По Длина Цикл
Буква = Сред(Стр, Поз, 1);
Если СтрНайти(Гласные, ВРег(Буква)) <> 0 Тогда
Буква = Буква + Буква
КонецЕсли;
Результат = Результат + Буква
КонецЦикла;
Сообщить(Результат)
КонецЕсли;


[AlexWitcher]

Код Выделить Развернуть

Стр = "";
Если ВвестиСтроку(Стр, "Введите текст") Тогда
Гласные = "AEIOUY";
Длина = СтрДлина(Стр);
Результат = "";
Для Поз = 1 По Длина Цикл
Буква = Сред(Стр, Поз, 1);
Если СтрНайти(Гласные, ВРег(Буква)) <> 0 Тогда
Буква = Буква + Буква
КонецЕсли;
Результат = Результат + Буква
КонецЦикла;
Сообщить(Результат)
КонецЕсли;


Уже 2 раз мне помогаете, все работает, спасибо!