help passcal aj help plsssssssss

var i, dem:Integer;
 n:string;
begin
    assign(INPUT,'Demsotu.INP'); reset(INPUT);
    assign(OUTPUT,'Demsotu.OUT'); rewrite(OUTPUT);
    read(n);
    for i := 1 to length(n) do 
        if (n[i]<>' ') and (n[i+1]=' ') then 
            inc(dem);
    if n[length(n)]<>' ' then inc(dem);
    write(dem);
end.