Пример решения на языке Pascal:

program RemoveSpaces;
var
inputString, outputString: string;
i: integer;
begin
inputString := 'Т е с т о в а я п о с л е д о в а т е л ь н о с т ь';
outputString := '';
for i := 1 to Length(inputString) do
begin
if inputString[i] <> ' ' then
outputString := outputString + inputString[i];
end;
writeln('Исходная последовательность: ', inputString);
writeln('Последовательность без пробелов: ', outputString);
end.

При запуске данной программы будет получен следующий результат:

Исходная последовательность: Т е с т о в а я п о с л е д о в а т е л ь н о с т ь
Последовательность без пробелов: Тестоваяпоследовательность