Скажите пожалуйста,почему ругается на индекс массива

[Otar4ik]

Я даже увеличил место и выделил памяти больше под массивы.
А он всё равно ругается почему-то,я ему строку указал вместо n думал легче будет,но увы...

program var3_24;

var
   key, num, temp: integer;
   a: array[1..6, 1..11] of integer;
   m, n, i, j: integer;
   bol: boolean;

begin
   randomize;
   writeln('1 - Поменять местами столбец с номером 1  и первый из столбцов, содержащих только положительные элементы');
   writeln('2 - Поменять местами столбец с номером 10  и последний из столбцов, содержащих только положительные элементы');
   readln(key);
   writeln('Введите количество строк и столбцов');
   read(m); 
   readln(n);
   writeln('Введите по ', n, ' элементов ');
   for i := 1 to m do 
   begin
      write(i, ' строка : ');
      for j := 1 to n do read(a[i, j]);
   end;
   case key of
      1:
         begin
            Num := 0;
            for i := 2 to n do
            begin
               bol := true;
               for j := 1 to m do
               begin
                  if a[j, i] < 0 then bol := false;
               end;
               if bol then num := i;
            end;
            if num > 0 then begin
               for j := 1 to m do
               begin
                  temp := a[j, num];
                  a[j, num] := a[j, 1];
                  a[j, 1] := temp;
               end;
            end;
            writeln;
            writeln('Результат программы');
            for i := 1 to m do 
            begin
               writeln;
               for j := 1 to n do write(a[i, j], ' ');
            end;
            
         end;
      2:
         begin
         num := 0;
            for i := n - 1 downto 1 do
            begin
               bol := true;
               for j := 1 to m do
               begin
                  if a[j, i] > 0 then bol := false;
               end;
               if bol and (num = 0) then num := i;
            end;
            for j := 1 to m do
            begin
               temp := a[j, num];------Вот здесь ругается.
               a[j, num] := a[j, 10];
               a[j, 10] := temp;
            end;
            writeln;
            writeln('Результат программы');
            for i := 1 to m do 
            begin
               writeln;
               for j := 1 to N do write(a[i, j], ' ');
            end; 
         end;
   end;  
end.

[GreenWizard]

         num := 1;
            for i := n - 1 downto 1 do
            begin
               bol := true;
               for j := 1 to m do
               begin
                  if a[j, i] > 0 then bol := false;
               end;
               if bol and (num = 1) then num := i;
            end;

Бол, какая бол, архентина-ямайка..... в смысле, пробуй)