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.