Дан текст.составьте программу ,вставляющую после буквы "я " слог "мал"

Var s:string; i:integer;
begin
write('Введите текст: '); readln(s);
for i:=1 to length(s) do
if s[i]='я' then write('ямал') else write(s[i]);
end.