string

[1Dima]

плиз помогите с задачкой не понимаю почему не работает!(
программа которая заменяет все буквы (а,е,i,o,u,y)
на слоги sa, se,si,so,su,sy.
у меня заменяет только первый символ не одной s, а дублирует несколько раз

uses
  SysUtils;

var   rad,cumv: string;
        i,L: integer;
begin
        write ('Vvedit text latunskumu literamu: ');
        readln (rad);
        cumv:='';
        L:=length (rad);
        for i:=1 to L do
                begin
                cumv:=rad[i];
                if cumv='а' then
                Insert('s',rad,i);
                if cumv='o' then
                Insert('s',rad,i);
                if cumv='e' then
                Insert('s',rad,i);
                if cumv='u' then
                Insert('s',rad,i);
                if cumv='i' then
                Insert('s',rad,i);
                if cumv='y' then
                Insert('s',rad,i);
                end;
        writeln (rad);
        readln;
end.

[Alex11223]

А зачем вам cumv?
Кроме вставки (insert) надо же еще удалить этот символ. И ошибка в синтаксисе там у вас: insert(rad, 'sa', i), rad — в какую строку вставляем, 'sa' (или другая строка без кавычек) — что вставляем.
И после этого у вас изменится количество символов в строке. Поэтому цикл должен быть downto, а не to.

[1Dima]

я в етом деле новичек - мало что понял(

[Alex11223]

Ну кроме вставки символа, надо еще воспользоваться Delete для удаления старого символа. И т.к. изменится кол-во символов в строке, то надо в цикле идти не с начала (i:=1 to length(rad) ), а с конца (i:=length(rad) downto 1). И не понятна роль строки cumv в этой программе. Можно же сразу rad[i] проверять, без присваиваивания значения rad[i] другой строке.