Лёгкая по ! дан текст, слова которого разделены одним пробелом. после последнего слова стоит точка. удвоить все пробелы этого текста.

Понятия не имею, зачем тут про точку, программа работает, есть эта точка или нет её.

var
  s:string;
  i:integer;
begin
  Write('Введите строку: '); Readln(s);
  for i:=Length(s) downto 1 do
    if s[i]=' ' then Insert(' ',s,i);
  Writeln(s)
end.

Пример
Введите строку: А роза упала на лапу Азора
А  роза  упала  на  лапу  Азора