Поскольку по условию задачи непонятно, на каком языке написана строка, то я написал программу, заменяющую АНГЛИЙСКУЮ "а" на АНГЛИЙСКУЮ "о". Если на другом языке - то программу можно переделать...
uses Crt; var i : integer; S, Snew : string; begin ClrScr; Write ('S = '); ReadLn(S); Snew := ''; for i:=1 to length(S) do if S[i]='a' then Snew:=Snew+'o' else Snew:= Snew+S[i]; WriteLn (S); WriteLn (Snew); ReadLn; end.
uses Crt;
var i : integer;
S, Snew : string;
begin
ClrScr;
Write ('S = '); ReadLn(S);
Snew := '';
for i:=1 to length(S) do
if S[i]='a' then Snew:=Snew+'o'
else Snew:= Snew+S[i];
WriteLn (S);
WriteLn (Snew);
ReadLn;
end.