nhập vào 1 xâu đếm số lượng dấu cách của xâu đó và in ra xâu bằng cách loại trừ tất cả các dấu cách trong xâu

program abc;
uses crt;
var
    s:string;
    i,a:byte;
begin
    write(‘Nhap xau: ‘);
    readln(s);
    a:=0;
    for i:=1 to length(s) do
        while s[i]=’ ‘ do
        begin
            a:=a+1;
            delete(s,i,1);
        end;
    writeln(‘So dau cach: ‘,a);
    writeln(‘Xau moi: ‘,s);
    readln;
end.