Дан массив x100. найти сумму эелементво массива от x1 до xmin

Var
 n,i,k,s,min:longint;
 a:array[1..100] of longint;
begin
 Write('Write size array: '); readln(n);
 for i:=1 to n do
  begin
   a[i]:=Random(50);
   write(a[i]:4);
  end;
 min:=a[1];
 k:=1;
 s:=0;
 for i:=1 to n do
  if a[i]<min
   then
    begin
     min:=a[i];
     k:=i;
    end;
 for i:=1 to k do
  s:=s+a[i];
 writeln(s);
 readln
end.

Вопрос поставлен некорректно, поэтому и ответ такой.
Если говорить об информации содержащейся в письме (о его смысловой нагрузке), то её объём не зависит от количества знаков в алфавите. А если речь идёт об объёме информации, который потребовался для записи сообщения, то тогда другое дело.
У Мульти для записи одного символа используется 5 бит (2^5=32), а у Пульти 6 бит (2^6=64). Значит сообщение Мульти было записано с бит, а сообщение Пульти с бит.
Значит сообщение Пульти больше сообщения Мульти на 20 бит.

"Пока" - while если правильно понял
"Если" - if
цикл с параметром - for

while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным
Например:
while <условие> do
<операция>

for - действие выполняется до того, пока не выполниться столько - то раз
Например:
for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз
<операция>

if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false)
Например:
if <условие>
then <операция>
else <операция>