Создать функцию, которая в заданной строке заменяет все пробелы подчеркиванием - Turbo Pascal

Создать функцию , которая в заданной строке заменяет все пробелы подчеркивание

Листинг программы

function underscore(s: String): String;
var j: Integer;
begin
  for j:=1 to Length(s) do if s[j]=' ' then s[j]:='_';
  underscore:=s;
end;

Объяснение кода листинга программы

Создается функция underscore, которая принимает один аргумент типа String и возвращает измененную строку.
Внутренний цикл for начинается с индекса 1 и продолжается до длины входной строки s.
Внутри цикла проверяется условие: если текущий символ в строке равен пробелу (s[j]=' '), то он заменяется на подчеркивание (s[j]:='_';).
После завершения внутреннего цикла, измененная строка сохраняется в переменной underscore.
Функция возвращает значение underscore.