Паскаль.задача на строки.Дополните код

Задание: Из введенного текста отобразить на экране слова, в порядке убывания частоты повторения.
вот мой код:
uses crt;
var
i,j,k:integer;
s,slovo:string;
razd:string;
a,b:array [1..127]of string;
begin
clrscr;
readln(s);
razd := ', :;-().?!';
slovo := '';
for i := 1 to length(s) do
begin
if pos(s[i], razd) = 0 then
slovo := slovo + s[i]
else
begin if length(slovo)>0 then a[i]:=slovo ;
slovo := '';
end;
end;
for i:=1 to 127 do begin
for j:=1 to 127 do begin
if (a[i]=a[j]) and (i<>j) then //начиная отсюда не знаю как делать(

else if (i<>j) then
for j:=1 to 127 do begin
a[i]:=b[j];
end;
end;end;
for i:=1 to 127 do begin
write (b[i]) end;
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.