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

Var S,T : String;

I : Integer;

Begin

S := 'sdvfsD ASDGFASD ADFGADF SC F BSGFB SFGNGHN DGHDGH D';

T := '';

For I := 1 To Length(S) Do Begin

If (S[I] <> ' ') Then T := T + S[I];

End;

WriteLn(S);

WriteLn(T);

ReadLn;

End.