Составить программу замены в слове X всех букв "а" и "я" на слог "ба"

Tormentor

Доброго времени суток! Помогите, пожалуйста, с задачей. Нужно составить программу замены в слове X всех букв "а" и "я" на слог "ба".
1 ответ

Tormentor

Var x:string;
i:integer;
Begin
Writeln('Введите слово:');
Readln(x);
i:=1;
While i<=Length(x) do
 begin
  if (x[i]='а') or (x[i]='я') then
   begin
    Delete(x,i,1);
    Insert('ба',x,i);
    i:=i+1;
   end;
  i:=i+1;
 end;
Writeln('Преобразованное слово:  ',x);
End.