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

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

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