Nhập vào 1 xâu. In ra màn hình xâu đã loại bỏ hết dấu cách (space).

PROGRAM CT72;
USES crt;
VAR s: STRING;
i: BYTE;
space: STRING[1];
BEGIN
clrscr;
Write('Nhap xau: '); Readln(s);
Write('Xau da loai bo Space: ');
Space:=' ';
FOR i:=1 TO length(s) DO
IF s[i] <> space THEN write(s[i]);
readln
END.

Download: http://www.mediafire.com/?eggg6gjyfxcagb5