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

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var s := ReadlnString;

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

 if i gt; 0 then

 begin

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

   s[i] := c;

   s.Println

 end

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

end.