Паскаль.Проблема с выводом результата.Посмотрите где ошибка

Задача такая пользователь вводит строку,нужно вывести на экран слова и количество повторений их в этой строке.Код ниже.Массив из слов сгенерирован правильно,алгоритм нахождения повторов вроде логичный,но на экран выводится только одна строка: povtoryetsay1raz,а должно быть слово и количество повторов.
Код:
uses crt;
var a:array[1..127] of integer;
c:array[1..127] of string;
i,j,n,p:integer;
s,st,b:string;
begin
clrscr;
readln(st);
st:=' '+st+' ';
s:=st;
n:=1;
for i:=1 to length(s) do
if s=' 'then begin a[n]:=i; inc(n); end;
for j:=2 to n do
begin
b:=copy(s,a[j-1]+1,a[j]-a[j-1]);
c[j-1]:=b; b:=''; end;
for i:=1 to n do begin
p:=0;
for j:=1 to n do
if (i <>j) and (c=c[j]) then
c[j]:=''; inc(p);end;
write(c,'povtoryetsay',p,'raz');
end.