Паскаль. написать простую программу. дана фраза S:='Over the pond and far away'; Необходимо: - удалить все буквы "а", вывести на какой они были позиции; - вместо букв "а" вставить "е"; - найти буквы "l" и заменить на "g"; - вставить в середину строки "+".

Предыдущий
вопрос Следующий
вопрос

program ChangeString;
var
S: string;
i: integer;
begin
S := 'Over the pond and far away';
writeln('Original string: ', S);

writeln('Positions of "a":');
for i := 1 to Length(S) do
begin
if S[i] = 'a' then
begin
write(i, ' ');
S[i] := 'e';
end;
end;
writeln;

for i := Length(S) downto 1 do
begin
if S[i] = 'l' then
S[i] := 'g';
end;

Insert('+', S, (Length(S) div 2) + 1);

writeln('Modified string: ', S);
end.