количество слов в тексте

Ответ от QAZWSX azxs[гуру]
program gfhg; uses crt; var s:string; k,j,a:integer; begin writeln(\'строка: \'); readln(s); k:=0; a:=length(s); for j:=1 to a do if s[j]=\',\' or s[j]=\':\' or s[j]=\'\"\' then s[j]:=\' \'; if s[a]=\'.\' or s[a]=\'!\' or s[a]=\'?\' then s[a]:=\' \'; s:=\' \'+s+\' \'; a:=length(s); for j := 1 to a - 6 do if copy(s, j, 7) = \' write \' then inc(k); writeln(k); end.