Фирма имеет 10 магазинов. Информация о доходе каждого магазина за каждый месяц года хранится в двумерном массиве (в первом столбце за январь,во втором — за февраль и т.д).Верно ли,что общий доход первого человека в сентябре превысил некоторое заданное число — Pascal(Паскаль)

program z1;
uses crt;
const n=10;
      m=12;
var a:array[1..10,1..12] of integer;
i,j,h:integer;
log:boolean;
begin
writeln('Введите доход каждого магазина');
for i:=1 to n do begin
For j:=1 to m do begin
 a[i,j]:=random(100)+1; // В скобкох максимальное значение рандомных чисел
end; end;
Writeln('Исходная матрица:');
for i:=1 to n do begin
For j:=1 to m do
write(a[i,j]:3);
writeln; end;
Writeln('Некоторое число=');
readln(h);
log:=false;
for i:=1 to n do begin
For j:=1 to m do begin
if a[1,9]>h then log:=true
end;
end;
if log=true then
writeln('Верно, доход первого магазина в сентябре превысил заданное число')
else
writeln('Не верно, доход первого магазина в сентябре непревысил заданное число');
end.