Создать програму для решения задачи в PascalABC

Для начала надо найти i - (сколько весит 1 символ) по формуле N=2^i
Нам дано N - (мощность алфавита) 8 и 16 , эти числа подставляем по формуле получиться.
8=2^3 значит здесь i=3 (Если не понятно как я нашел это число, я просто умножал 2×2×2 получил 8 и сколько 2 потребовалось это есть число i)
16=2^4 значит здесь i=4
Дальше нам дано то что в сообщениях было по 25 знаков.
Теперь чтобы найти Iобьем 2 сообщений[1-Каюмба ;2-Гаюмба] нужно (i×кол.знаков) т.е
I1=3×25=75 бит
I2=4×25=100 бит
И здесь ясно то что 2 сообщение информативнее , а чтобы найти на сколько бит больше , надо 100-75=25бит 
ответ:Сообщение Гаюмбы инфоормативнее на 25 бит.

Хром жрет переносы строк - сейчас поправлю

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace replaceThis{
 class main{
  static void Main(){
   int N = 10;
   int[] arr = new int[N];
   Random rand = new Random();
   Console.Write("Исходный   массив: ");
   for (int i = 0; i < N; ++i){
    arr[i] = rand.Next(1, 9);
    Console.Write("{0} ", arr[i]);
   }
   Console.WriteLine("");
   int maxI, minI;
   maxI = minI = 0;
   for(int i = 1; i< N; ++i){
    if (arr[maxI] < arr[i])
     maxI = i;
    if (arr[minI] > arr[i])
     minI = i;
   }
   int  temp = arr[minI];
   arr[minI] = arr[maxI];
   arr[maxI] = temp;
   Console.WriteLine("Индекс максимального - {0}. Индекс минимального - {1}.", maxI, minI);
   Console.Write("Измененный массив: ");
   for (int i = 0; i < N; ++i)
    Console.Write("{0} ", arr[i]);
   Console.ReadKey();
  }
 }
}