Дана строка S. Удалить из строки все пробелы , заменив их на ‘**’ — Pascal(Паскаль)

var
  s, a: string;
  i: integer;

begin
  a := '**';
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = ' ' then
    begin
      insert(a, s, i);
      delete(s, i + 2, 1);
    end;
  writeln(s);

end.