pary liter

program ten znajduje ilosc wystapień małych liter w badanym tekście. A co należałoby zmienić, aby liczył czestość par liter. Dziękuję za wskazówki..z góry
...
var
i, k, licznik : Integer;
t: TextFile;
ch: char;

begin
Assign(t, 'C:\plik.txt');
Reset(t);

for i := ORD('a') to ORD('z') do
begin
licznik := 0;

repeat
Read(t, ch);
if ch = CHR(i) then licznik := inc(licznik);
until EOF(t);

Reset(t);
Writeln('Ilosc literek ',CHR(i), ': ',licznik);
end;
Close(t);,
readln;
end.

Najlepiej nic nie zmieniać, ale napisać od początku, będzie mniej roboty ;). I używaj tagów...

Co znaczy "częstość par liter" .. para to dwie litery tak ? .. wiec co on ma liczyć?