Имеется некоторая последовательность символов. образовать новую последовательность, пропустив пробелы. (использовать склейку «+»)(не использовать pos, delete, copy…) на паскале!

var
  str: string;
  arr: array of string;
  
begin
  readln(str);
  arr := str.Split(' ');
  writeln(String.Join('', arr));
end.