строки

[СветОК]

Задание : вывести на экран при некой заданной строке количество рядом стоящих пар букв и сколько они в строке повторяются, прога рабоет НО вот к примеру при проверке я ввожу строку:
lolol
lo=2
ol=3
lo=3
ol=2
но мне нужно сделать так, чтобы уже повторяющееся пара не прописывалась т.е
lo=2
ol=2

помогите указать что не так...

Program hgf;
 Uses crt;
 var
 st,s:string;
 x:byte;
 q,i:integer;
 k:integer;
 begin
 clrscr;
 writeln ('Ââåäèòå ñòðîêó');
 readln(s);
 k:=1;
 q:=0;
 i:=1;
 while k<=length(s)-1 do begin
 st:=copy(s,k,2);
 repeat
 x:=pos(st,copy(s,i,length(s)));
 if x<>0 then inc(q);
 i:=i+x;
 until x=0;
 k:=k+1;
 writeln (st,'=',q)
 end;
 readln;
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Shift_sk]

ха..используй цикл while!

[СветОК]

Сообщение от Shift_sk

ха..используй цикл while!

while k<=length(s)-1 do begin
st:=copy(s,k,2);
repeat

не while??