Простое решение. Сначала просто заполняем массив в ручную, потом ищем минимальное значение и максимальное.
Если буква кодируется одним байтом, то 8. Если двумя - только 4.
5 битов, т.к. 2⁵ = 32 и этого хватит для 30 символов
Var t:integer;
b,a:real;
begin
write('Вклад равен ');
read(a);
b:=1.05;
while a<1000000 do
begin
a:=a*b;
t:=t+1;
end;
write('Под процентами пролежавши ',t,' лет вклад накопил ',a:12:4,' рублей');
end.<span>
</span>