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

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.