Какова мощность алфавита, с помощью которого записано сообщение, содержащее 2048 символов, если его объем составляет 1/256 Мбайта?

const x:array [1..10] of integer=(-1,23,32,-8,27,-3,5,13,-4,17);
var i,k,s:integer; x1:array[1..10] of integer;
begin
for i:=1 to 10 do
x1[i]:=x[i];
begin
for k:=1 to 5 do
for i:=3 to 7 do if x[i]< x[i+1] then begin
S:=x1[i+1];
x1[i+1]:=x[i];
x1[i]:=s
end;
s:=x[6];
for i:=4 to 8 do s:=s+x[i] ;
writeln (s);
end;
end.

Ответ: 31. А именно, я не понимаю как именно идёт последовательность, знаю, что вложенный цикл повторяется пока не завершится, затем внешний пока не завершится. Но если оператор IF не выполняется, что следует? У меня именно в этом месте затуп. Буду признателен, если изложите по пунктам ход решения. спасибо!

2.Сколько бит информации содержит сообщение объемом 4 Кбайта?
3.Выберите вариант, в котором объемы памяти расположены в порядке убывания:
• 10 бит, 20 бит,2 байта, 1 Кбайт, 1010 байт;
• 10 бит, 2 байта, 20 бит, 1 Кбайт, 1010 байт;
• 10 бит, 2 байта, 20 бит, 1010 байт, 1 Кбайт;
• 10 бит, 20 бит, 2 байта, 1010 байт, 1 Кбайт.