Подсчитать слова в тексте.Турбо Паскаль

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.

Как-то так:
S1 := S; { в копию строки }
K := 0;
while Pos('write', S1) > 0 do { пока write встречается в строке }
begin
P := Pos('write', S1); { позиция слова write }
Delete(S1, P, 5); { удалим слово write }
if Length(S1) < P then Inc(K) { если write было в конце строки => +1 }
else if S1[P] = #32 then Inx(K); { если после write идёт пробел => +1 (а если не пробел, то слово ещё не закончено) }
{ можно ещё на знаки препинания проверить }
end;
WriteLn('В строке "', S, '" слово write встречается ', K, ' раз');
Но это так - типа для отмазки!
По идее нужно выделять слово с учётом знаков препинания и сравнивать его целиком!
А то к примеру rewrite может попасть в счётчик, а не должно!

> в проге щитает все слова

Ерунду она у тебя "щитает", а не слова)
В строке, к примеру, "слово слово слово "
она "нащитает" аж 7 слов вместо трех)

for i := 1 to length(s) - 4 do
if copy(s, i, 5) = 'write' then
inc(k);

Введите еще одну переменную для запоминания начала каждого слова, затем при нахождении пробела используя функцию copyпроизводите сравнение