Паскаль. написать простую программу. дана фраза S:='Over the pond and far away';...

Question

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

Comments

Если прога не будет работать, пиши, на каком Паскале она нужна - исправлю. Прога может не работать на turbo и free (lazarus)

Answer 1

Var S:string;
i:integer;
Begin
WriteLn('Введи строку');
ReadLn(S);
For i:= 1 to Length(S) do
 Case S[i] of
 'a':Begin S[i]:='e'; Write(i,' ') end;
 'A':Begin S[i]:='E'; Write(i,' ') end;
 'i':S[i]:='g';
 end;
Insert('+',S,trunc(Length(S)/2));
WriteLn;
WriteLn(S);
End.