строки

[Пе4енька]

нужно модифицировать введённую с клавиатуры строку следующим образом: удалить все знаки "+", расположенные после пробела и перед цифрой, и заменить все восклицательные знаки на точки.

[VKorablev]

for i:=1 to length(s) do begin
if (s[i]='+') and (s[i+1]='0'..'9') and (s[i-1]=' ') then
s[i]:='';
if s[i]='!' then s[i]:='.';
end;

в коде есть ошибка, лень ее исправлять, но алгоритм вам понятен