Нужно доработать программку ...(Pascal)

[bot0]

Задание:
Задана строка, что состоит из слов, разделенная одним или несколькими пропусками.Подсчитать количество слов которые содержат пары соседних одинаковых букв.

нужно сделать из сырой полностью готовую программку (от program до end.)

{Обьявление переменных и т.д}
{Потом ваша функция}
function isDubleLettrers(OneWord : string) : boolean;
var i:integer;
isFound : boolean;
begin
isFound := false; {вначале считаем, что таких букв нет}

i := 1; {начиная с первой буквы}
while (i<Length(OneWord)) and (Not isFound) do begin
{если текущая буква равна следующей, значит нашли такую пару!}
if OneWord[i] = OneWord[i+1] then
isFound := true;
inc(i);
end;

isDubleLettrers := isFound;
end;

{Потом где-то в теле программы}
count := 0;
j := 1;
for i := 1 to length(s) do
begin
if (s[i] <> ' ') and (i <> length(s)) then
begin
ts[j] := s[i];
j++;
end
else
begin
if i = length(s) then ts[j] := s[i];
if isDubleLettrers(ts) = true then Inc(count);
ts := '';
j := 1;
end;
end;
Writeln ('Количество слов равно ', count);