Составить блок схему даны два числа найти минимальное

Var
    capacity: real;

begin
    capacity := 4 * 160 * 60;
    writeln('Слов за 4 часа = ', capacity);
    {пробелы тогда тоже считаем}
    capacity := capacity * (6 + 1);
    writeln('Символов за 4 часа = ', capacity);
    capacity := capacity;
    writeln('Байт за 4 часа = ', capacity);
    capacity := capacity / 1024;
    writeln('Кбайт за 4 часа = ', capacity);
end.

Вывод
Слов за 4 часа = 38400
Символов за 4 часа = 268800
Байт за 4 часа = 268800
Кбайт за 4 часа = 262.5

А вобще применять битовое определение символов как подсчет кол-ва информации перерабатываемой человеком - в корне не верно

Var a:array of integer;
n,i,p,i1,i2: integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
Randomize;
a[0]:=random(50)+100;
write(a[0]:4);
for i:=1 to n-1 do
 begin
 a[i]:=a[i-1]-random(11);
 write(a[i]:4);
 end;
writeln;
p:=a[0]-a[n-1];
writeln('p = ',p);
i1:=0; i2:=n-1; 
repeat
i:=(i1+i2) div 2;
if a[i]>p then i1:=i1+1;
if a[i]<p then i2:=i2-1;
until (a[i]=p)or(i1>=i2);
if a[i]=p 
 then writeln('i = ',i) 
 else writeln('Искомого элемента нет');
end.

Пример:
n = 20
 142 139 135 129 120 120 120 113 107 106 104  99  89  88  81  72  71  70  60  54
p = 88
i = 13