Запишите число 72634,25347 в развернутой форме.
2. Найдите десятичный эквивалент числа 11616
3. Решите уравнение 10010 = 55х
4. Все 4-буквенные слова, составленные из букв М, С, Т, Ф, записаны в алфавитном порядке. Вот
начало списка:
1.
2. МММС
3. МММТ
4. МММФ
5. MMCM
Запишите слово, которое стоит на 138-м месте от начала списка.
5. Переведите десятичное число 14, 1875 в двоичную систему счисления.
6. Переведите шестнадцатеричное число 1AC7 в двоичную систему счисления.
7. Найдите все основания позиционных систем счисления, в которых запись десятичного числа 23
заканчивается на 4.
8. Найдите сумму двоичных чисел 1100110 и 1011

Program abc;
type 
   mas = array[0..1000] of integer;
var 
   a: mas;
   i, n, max: integer;
begin
  WriteLn('Введите кол-во эл-тов массива:');
  ReadLn(n);
  for i := 1 to n do
  begin
    WriteLn('Введите значение элемента №', i);
    ReadLn(a[i]);
  end;
  WriteLn('Все элементы массива имеют значение');
  max := -1;
  for i := 1 to n do
    if a[i] > max then
      max := a[i];
    if max <> -1 then
      Writeln('Максимальное значение положительного элемент = ', max)
    else Writeln('Положительных элементов нет');
    ReadLn;
end.

Мне кажется,  задача не сводящая ответ к однозначным числам, ведь в задаче не сказано, что использовался весь алфавит, равно как и не сказано, что символы не могут повторяться. 
если во втором тексте в 3.5 больше символов, чем в первом, при одинаковом инф. объеме, то число бит на каждый символ во втором тексте должен быть в 3.5 раза меньше, чем в первом тексте,  чтобы размер файла текста не изменился: например 2 и 7 или 4 и 14 или 6 и 21... и т.д. соответственно, соовтетственно, мощность алфавита будет 4 и 128 или 32 и 16386 или 64 и 2097152.. и т.д. То, что в обоих текстах символов меньше 200 не говорит о том, что символы не могут повторяться, а значить определенно сказать, которая их вышеприведенного списка мощность алфавита будет верной  нельзя.