3дpacтвyйтe, помогите пожалуйста с информатикой.

Задание 2PascalABC begin St := 'Человек без сомнений должен непременно вызывать сомнения окружающих'; WriteLn (' Исходное предложение: '); WriteLn (' ', St); for var i := 1 to Length (st) do if (St[i]= ' ') then St[i]:= '!'; Writeln (' Преобразованное предложение:'); Write (' ',St); WriteLn; end.