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

вот настрочил часть кода, немогу понять как сделать чтобы прога анализировала введённы текст на предмет введённых 2ух символов :(

program pp;
var
st,k:string;
n,i:integer;
begin

writeln('введите текст');
readln(st);
writeln('введите двубуквенные символы');
readln (k);
end;
ИИИ?

writeln ('двубуквенных символов в тексте - ',k);
end.