Создать двумерный массив - Pascal (80916)

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

Создать и вывести на экран двумерный массив с элементами a_ij=2ⁱ-10j. Вывести на экран сначала все положительные его элементы , а затем все отрицательные . При отсутствии искомых данных , вывести соответствующее сообщение

Решение задачи: «Создать двумерный массив»

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

program StrangeArray;
 
const
n = 5;
m = 6;
 
var
Ar : array [1..n,1..m] of LongInt;
i, j : integer;
PologFlag, OtricFlag : Boolean;
 
begin
//генерация
for i := 1 to n do
  for j := 1 to m do
    Ar[i][j] := floor(power(2, i)) - 10*j;
    
//отображение
for i := 1 to n do
  begin
    for j := 1 to m do
      write(Ar[i][j]:3, ' ');
    writeln;
  end;
writeln;
  
//вывод положительных
PologFlag := False;
writeln;
writeln ('Pologitelnie');
for i := 1 to n do
  for j := 1 to m do
    if (Ar[i][j] > 0)
    then
      begin
      write (Ar[i][j], ' ');
      PologFlag := True;
      end;
writeln;
 
if (not PologFlag)
then writeln('Pologitelnih NET');
 
 
//вывод отрицательных
OtricFlag := False;
writeln;
writeln ('Otrizatelnie');
for i := 1 to n do
  for j := 1 to m do
    if (Ar[i][j] < 0)
    then
      begin
      write (Ar[i][j], ' ');
      OtricFlag := True;
      end;
      
if (not OtricFlag)
then writeln('Otricatelnih NET');      
      
readln;
end.

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

Определение констант:
- n со значением 5
- m со значением 6
Объявление переменных:
- Ar как двумерный массив с размерами n и m
- i, j как целые числа
- PologFlag, OtricFlag как булевы значения
Заполнение массива:
- Цикл для переменной i от 1 до n
- Вложенный цикл для переменной j от 1 до m
- В каждой ячейке массива Ar[i][j] высчитывается значение по формуле floor(power(2, i)) - 10*j
Отображение массива:
- Цикл для переменной i от 1 до n
- Вложенный цикл для переменной j от 1 до m
- Выводится значение ячейки массива Ar[i][j]
Вывод положительных чисел:
- Установка флага PologFlag в False
- Перебор всех элементов массива
- Если значение ячейки больше нуля, выводится значение и устанавливается флаг PologFlag в True
Вывод сообщения об отсутствии положительных чисел, если флаг не изменился.
Вывод отрицательных чисел:
- Установка флага OtricFlag в False
- Перебор всех элементов массива
- Если значение ячейки меньше нуля, выводится значение и устанавливается флаг OtricFlag в True
Вывод сообщения об отсутствии отрицательных чисел, если флаг не изменился.
Ожидание ввода пользователя.