Nhập vào từ bàn phím xâu S bất kì.Đếm xem có bao nhiêu dấu cách trong xâu S. Xóa tất cả dấu cách có trong xâu S

Program FNG;
Uses crt;
Var S: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        d:=0;
        For i:=1 to length(S) do
                If S[i]=#32 then
                        inc(d);
        Writeln('Co ',d,' dau cach');
        For i:=1 to length(S) do
                While S[i]=#32 do Delete(S,i,1);
        Write(S);
        Readln
End.

program Tin_hoc;

uses ccrt;

var i,k:integer;

s1,s2:string;

begin

clrscr;

writeln('Nhap xau S:);readln(s1);

k:=0;s2:='';

for i: =1 to length (s1) do if ord(s1[i]) = 32 then  inc(k) else s2:=s2+s1[i];

writeln('Xau S da bi xoa dau cach:',s2);

readln;

end.