программирование_паскаль_строки

[Пе4енька]

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

[GetMax]

Пе4енька, разбирайтесь:

For i:=1 to Length(St) do
  Begin
    If (St[i]='+') and (St[i-1]= ' ') and (St[i+1] in ['0'..'9']) then
    Delete(St,i,1);
    If (St[i] = '!') then St[i]:='.'
  End;
  Writeln(St);