подсчитать кол-во букв

[Naposaram]

Помогите плиз мне, чайнику, в делфи плохо шарю.
Задача: написать программу которая в открываемом файле подсчитывает кол-во русских и английских букв и выводит:
"а-3
б-0
в-5
....
x-3
y-4
z-0 "

поиском пользовался нашел подобную тему, ну так как чайник ничего там не понял

[KORN]

создаешь 2 константы в одной русский алфавит в другой англ.
создаешь массив для сохранения результатов
пробегаешься в цикле по тексту и если буква входит в первую константу то увеличиваешь нужный элемент массива и т.д.

[alex_fcsm]

Вот здесь же выложили готовое

[Квэнди]

const
eng=['a..z','A..Z'];
rus=['а..я','А..Я'];
....
var rusc,engc,i:integer;
     ss:tstringlist;
.....
begin
rusc:=0;engc:=0;
ss:=tstringlist.create;
try
   ss.loadfromfile('адрес файла');
   for i:=1 to length(ss.text) do
   begin
      if ss.text[i] in eng then inc(engc);
      if ss.text[i] in rus then inc(rusc);
   end;
finally
ss.free;
end;
.....