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

[СветОК]

вот задание :

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

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


uses crt;
var s:string;
st:string;
x:byte;
q,i:integer;
k:integer;
begin
clrscr;
writeln ('Введите строку');
readln(s);
k:=1;
while k<=length(s)-1 do begin
st:=copy(s,k,2);
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 (st,'=',q);
k:=k+1;
end;
readln;
end.
как мне избавиться от повторных пар при проверке чтобы он повтряющие пары заново не выводил...помогите не могу понять(