Прога по строкам

[СветОК]

вот мое задание

Для встречающихся в заданном тексте пар рядом расположенных символов указать, сколько раз встречается каждое из таких двухбуквенных сочетаний

получилась такая прога

uses crt;
var s:string;
st:string;
x:byte;
q,i:integer;
begin
clrscr;
writeln ('Введите строку');
readln(s);
st:='JD';
q:=0;
i := 1;
repeat
x := pos(st,copy(s,i,length(s)));
if x<>0 then inc(q);
i := i + x;
until x=0;
writeln (q);
readln;
end.

как мне избавиться от повторов при проверке, чтобы те пары которые в строчке уже встречались он не повторял? не могу понять(