Сообщение какого размера можно скрыть в черно-белом рисунке размером 1024х1024 пикселей?

For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так

Program pr;
var a:array [1..n] of integer;
n, i, c: integer;
begin
c := 1
n := random(50);
for i := 1 to n do
begin
readln(a[i]);
c := c * a[i];
end;
writeln(c);
end.

Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания Жан-Жака Руссо:
Тысячи путей ведут к заблуждению, к истине – только один.
Ответ. 3) 456 бит.

Ни разу не выполнится. Транслятор выдаст ошибку:
Program1.pas(5) : Нельзя изменять значение переменной цикла внутри этого цикла