Рассказ набранный на компьютере содержит 8 страниц на каждой странице 40 строк в каждой строке 64 символов.определите информационный объем статьи напечатанной в алфавите с мощностью 65536

Var a,b,c,d,i,f,g,h,n:integer;
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1; 
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1; 
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d); 
writeln('количество нечётных делителей ==>',i); 
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f); 
writeln('количество делителей больших b ==>',n); 
end.

Program kursz5; //Название программы
uses crt; //Подключение модуля crt
const n=10; //Определение неизменяемых переменных
const m=10;
var //Описание переменных 
i,j,max,min:integer;
a:array[1..n,1..m] of integer; //(Ввод) Объявление массива
begin
randomize; //Подключение датчика случайных чисел
for i:=1 to n do //Ввод чисел для переменных массива 
for j:=1 to m do
a[i,j]:=random(100); //Ввод случайных чисел
max:= a[1,1]; //Присвоение к max элементах [1,1]
min:= a[1,1]; //Присвоение к min элементах [1,1]
for i:=1 to n do  //Будем делать пока i < n
begin
for j:=1 to m do //Будем делать пока i < m
begin
if a[i,j] > max then  // если элемент массива больше max будем делать что ниже
max:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не вывод
if a[i,j] < min then  //если элемент массива меньше min будем делать следующее
min:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной min
write(a[i,j]:5); - Здесь уже вывод
end;
writeln; 
end;
writeln(); 
writeln('max=',max,' min=',min); //Вывод max и min значений
end.