Viết chương trình nhập vào một xâu ký tự, đếm xem trong xâu có bao nhiêu từ? ( từ là một dãy ký tự không chứa dấu cách. VD xâu:'Dich benh Covid 19' có 4 từ) Giúp em với ạ!!

var
        st: string;
        i,kq: integer;
begin
        readln (st);
        for i:= 1 to length (st) do if st[i] = ' ' then inc (kq);
        writeln(kq+1);
        readln;
end.

Program FNG;
Uses crt;
Var St: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);

        While St[1]=#32 do Delete(St,1,1);
        While St[length(St)]=#32 do Delete(St,length(St),1);
        While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);

        d:=0;
        For i:=1 to n do
                If St[i]=#32 do inc(d);
        Write(d+1);
        Readln
End.