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

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.