Задача на текстовые файлы, Помогите решить, завтра последний день пересдачи..! Опции

[MAD-GTX]

Дан файл содержащий текст набранный заглавными английскими буквами. Провести частотный анализ текста, то есть указать (в %), сколько раз встречается та или иная буква. Помогите пожалуйста, препод двойку поставил за семестр и дал три задачи, одну нашел на форуме, одну решил сам. С этой никак не разберусь, ведь сначала надо подсчитать количество символов в тексте?

[мисс_граффити]

ну... например:
заводишь массив:

letters = array['A'..'Z'] of integer;

обнуляешь его.
пока не кончится файл, считываешь из него строки - S. далее - как-то так:

Код

for i:=1 to length(S) do
  letters[S[i]]:=letters[S[i]]+1;
sum:=sum+length(S);
//конец работы с файлом
for ch:='A' to 'Z' do
  writeln(ch, ':', ((letters[ch]/sum)*100):4:2, '%');

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