единственное, что пока сделала , нашла количество слов в строке
var
st:string[40];
i,k:integer;
begin
readln (st);
for i:=1 to length(st) do
if st[i]=' ' then k:=k+1;
writeln ('k=', k);
не пойму, как теперь работать с отдельными словами
Сообщение отредактировано: 18192123 -