Cách 1: Xóa đi dấu cách
program bai_giai;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau s:'); readln(s);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
write(s);
readln;
end.
Cách 2: In ra các kí tự khác dấu cách
program bai_giai;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau s:'); readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then write(s[i]);
readln;
end.