Помогите, пожалуйста, написать программу для Паскаль, которая заменяет первый пробел заданным символом

Спасибо большое

Пожалуйста

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString;

 var i := Pos(' ', s);

 if i > 0 then

 begin

   var c := ReadlnChar('Пробел найден. Чем заменить?');

   s[i] := c;

   s.Println

 end

 else Println('Пробел на обнаружен')

end.