heeeeeeeeeelp!!!!!!!!!!

[хЪх]

Построить таблицу вероятности появления того или иного символа в тексте, в процентном соотношении.Подсчитать количество символов текста не менее 15000.

[s-andriano]

Для однобайтовых кодировок:

for i := 0 to n-1 do
  inc(Statistic[MyText[i]]); // MyText - массив байтов
for i := 32 to 255 do
  writeln(char(i),' ',Statistic[ii]/n*100.0:4:1,'%');