Мини исследование самая необходимая буква в алфавите. откройте своё любимое

Задание полностью:
Откройте своё любимое литературное произведение. Подсчитайте. сколько букв расположено в одной полной строке (обычно 40-50). Отсчитайте такое количество строк, чтобы в них содержалось примерно 1000 букв (20-25 строк). В выделенном фрагменте как можно более точно пересчитайте сначала все буквы "а", затем "б", "в" и так далее по алфавиту. Полученные результаты занесите во второй столбец таблицы. Знаки препинания, цифры и пробелы впишите в строку "Другие".

У меня всё выполнено для первых 1000 символов предисловия сказки Карло Гоцци "Король-Олень" (текст во вложении). Если считать по строчкам, то в строчке, напечатанной обычным шрифтом, порядка 75 символов, так что надо брать первые 13-14 строк.

Получившаяся таблица на картинке. В общем, те буквы, которые в среднем встречаются часто (например, О, Е/Ё, А), в тексте встречаются тоже часто.

Const
  n1 = 20;
  m1 = 20;

var
  a: array[1..n1, 1..m1] of integer;
  b: array[1..m1] of integer;
  i, j, m, n: integer;

begin
  Write('Введите через пробел число строк и столбцов массива: ');
  Readln(n, m);
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Сформированный массив');
  for j := 1 to m do
  begin
    i := 1;
    while (i <= n) and (a[i, j] >= 0) do i := i + 1;
    if i <= n then b[j] := a[i, j] else b[j] := -99;
    Write(b[j]:4)
  end;
  Writeln
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
 -11 -18 -42 -22  -9   2  21  15  40  -3
   4  -5  40 -13 -44 -37  43  47   1 -39
  20  50  21 -18 -10   6  12 -10  43 -37
Сформированный массив
 -11 -18 -42 -22  -9 -37 -99 -10 -99  -3

 отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.

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

Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.

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

Телевизор не полезен, потому что перед ним человек сидит пассивно. Сидит, пультом клацает, а ему показывают картинку. С компьютером другое дело! С ним все время надо действовать! Даже читать и писать все время приходится. Так даже интереснее, чем торчать у телевизора.

А еще компьютер заставляет выбирать самому то, что действительно нужно. Если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь.

Компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. Просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. И чтобы расширить возможности человека, а не сузить их.