Дано предложение. Определить, сколько слов в данном предложении. Именно слов, а не символов. В pascal abc.

Если слова в предложении разделяются одним пробелом, то: var s:string; p,k:integer; begin writeln('Введите предложение:'); readln(s); s:=s+' '; k:=0; p:=pos(' ',s); while p<>0 do  begin  k:=k+1;  delete(s,1,p);  p:=pos(' ',s);  end; writeln('k = ',k); end. Пример: Введите предложение: Определить, сколько слов в данном предложении. k = 6