Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Исходная строка с пробелами, перенести исходную строку в другую строку без пробелов, паскаль..

program Task_Str;

  {задачи на строки паскаль с решением}
  {Исходная строка с пробелами, перенести исходную строку в другую строку без пробелов, паскаль.}
var
  i, n: integer;
  s_Str1, s_Str2: string;
begin
  s_Str2 := '';
  s_Str1 := 'The green grass covered the whole glade';
  n := length(s_Str1);
  WriteLn('Строка: ', s_Str1);
  for i := 1 to n do
  begin
    if s_Str1[i] <> ' ' then
      s_Str2 := s_Str2 + s_Str1[i];
  end;

  WriteLn('Строка без пробелов: ', s_Str2);
  ReadLn();
end.

Результат:

Исходная строка с пробелами, перенести исходную строку в другую строку без пробелов, паскаль.