Верно ли, что общий доход фирмы в сентябре превысил некоторое заданное число? - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Верно ли, что общий доход фирмы в сентябре превысил некоторое заданное число?»

Листинг программы

program pr;
const
  n = 10;
  m = 12;
var
  a: array [1..n, 1..m] of integer;
  i, j, x: integer;
  sum: longint;
begin
  randomize;
  sum := 0;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(50000);
  writeln('             Доходы фирмы( строки это магазины; столбцы месяцы)');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(' ', a[i, j]:5);
    writeln;
  end;
  writeln('Введите значение');
  readln(x);
  for i := 1 to n do
  begin
    sum := sum + a[i, 9];
  end;
  writeln('Доход фирмы за сентябрь: ', sum);
  if sum > x then
    writeln('Общий доход фирмы в сентябре превысил ', x)
  else writeln('Общий доход фирмы в сентябре не превысил ', x);
end.

Объяснение кода листинга программы

В программе объявлены две константы n и m, которые представляют количество строк и столбцов в массиве a.
Затем объявлен массив a, который представляет собой двумерный массив целых чисел.
Далее объявлены три переменные i, j и x, которые будут использоваться для итерации по массиву и сравнения суммарного дохода с заданным числом.
С помощью функции randomize генерируется случайное число для каждой ячейки массива a.
Затем происходит итерация по массиву a, где каждая строка выводится на экран.
После этого происходит итерация по массиву a, где каждая ячейка суммируется с доходом в сентябре (a[i, 9]).
Затем сумма всех доходов за сентябрь выводится на экран.
После этого программа запрашивает у пользователя значение x.
Затем происходит итерация по массиву a, где суммарный доход сравнивается с заданным значением x.
Если суммарный доход превышает x, то выводится сообщение об этом, иначе выводится сообщение о том, что суммарный доход не превышает x.