uses crt;
var
    F : text;
    s,result : string;
    i,count_space:Integer;
begin
    clrscr;

    assign(F,'BAI1.TXT');
    reset(F);
    while not EOF(F) do
        begin
            readln(F,s);
            writeln(s);
        end;
            close(F);
    result:='';
    count_space:=0;
    for i:=1 to length(s) do
    Begin
        if s[i]=' ' then inc(count_space)
        else result:=result+s[i];

    end;
    write('So dau cach: ');
    WriteLn(count_space);
    write('Ket qua cua xau sau khi xoa dau cach: ');
    write(result);
    readln;
end.
chuỗi s trong hình: xin   chao .