Сканируется цветное изображение размер 10 на 10. Разрешающая способность 1200 на 1200 (dpi) глубина цвета= 24 битам . Определите информационый обьем?

Вот задача.
Заданная целочисленная матрица размером NXM. Определить k-количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие.
Вот мой код.И если уж у меня все плохо,то предложите свой код программы.
program samost;
const n=5;
m=5;
type tmatr = array[1..n, 1..m] of integer;
var a:tmatr;
i,j,k:integer;
procedure PrintMatrix(var g:tmatr);
begin
var i,j,k:integer;
for i:=1 to n do
begin
for j:=1 to n do
write(g[i,j]:4);
writeln
end;
end;
procedure MakeMatrix;
begin
var i,j,k:integer;
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
end;
end;
begin
MakeMatrix;
writeln('matrica A: ');
PrintMatrix(a);

k:=0;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]<a[i+1,j])and(a[i,j]>a[i-1,j]) then inc(k)
end;
writeln('kolichestvo elementov = ',k);
end.

1)Сканируется цветное изображение стандартного размера А4(21*29,7 см).Разрешающая способность сканера 1200 dpi,глубина цвета 24 бита.Какой информационный объем будет иметь полученный графический файл?
2)Определить длительность звукового файла,который уместится на гибкой дискете 3,5"(для хранения данных на дискете выделяется 2847 секторов объемом 512 байтов каждый):
при низком качестве звука:моно,8 битов,8кГц;
при высоком качестве звука:стерео,16 битов,48 кГц.Просьба написать с объяснением!