Как найти пробел в строке и удвоить его? - Free Pascal

Как найти пробел в строке и удвоить его?

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

for i:=Length(s) downto 1 do if s[i]=' ' then Insert(' ',s,i);

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

В данном коде на языке Free Pascal реализуется функция, которая ищет пробелы в строке и удваивает их. Вот список действий, которые происходят в коде:

for i:=Length(s) downto 1 do - это цикл, который идет от последнего символа строки s к первому.
if s[i]=' ' then - проверяется, является ли текущий символ пробелом.
Insert(' ',s,i) - если текущий символ является пробелом, то в строку s вставляется еще один пробел перед текущим символом. В итоге, после выполнения данного кода, в строке s все пробелы будут удвоены.