Пример решения на Pascal:

program SkipSpaces;
var
inputString, outputString: string;
i: integer;
begin
inputString := 'И м е е т с я н е к о т о р а я п о с л е д о в а т е л ь н о с т ь';
outputString := '';
for i := 1 to length(inputString) do
begin
if inputString[i] <> ' ' then
begin
outputString := outputString + inputString[i];
end;
end;
writeln(outputString);
end.

В этом примере создается новая последовательность символов, пропуская пробелы из исходной строки inputString. Результат выводится на экран.