17. в строке заменить все пробелы на «_», посчитать количество замененных символов. паскаль

Var
  S: string;
  i: integer;
begin
  write('Введите строку:'); readln(S);
  for i := 1 to Length(S) do
    if S[i] = ' ' then S[i] := '_';
  writeln(S);
readln;
end.