Двумерный массив, Транспонирование не квадратной матрицы Опции

[goosberry]

Задача состоит в следующем: транспонировать матрицу f(10,8) и вывести на печать элементы главной диагонали и диагонали, расположенной под главной. Результаты разместить в двух строках

Практики решения задач с двумерными массивами не имею. Помогите пожалуйста (процедуры мы не изучали).
Пока получилось следующее, но транспонирование работает не верно, остальное что-то вообще никак не соображу:

program zadacha;
uses crt;
type
  matr=array[1..10, 1..8] of integer;
var
  a:matr; i,j,b:integer;
begin 
 randomize;
 writeln('ishodnaya matrica:');
    for i:=1 to 10 do
    begin
      for j:=1 to 8 do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  for i:=1 to 10 do
    for j:=i to 8 do
      begin
        b:=a[i,j];
        a[i,j]:=a[j,i];
        a[j,i]:=b;
      end;
    writeln('transponirovannaya matrica:');
    for i:=1 to 8 do
    begin
      for j:=1 to 10 do
        write(a[i,j]:4);
      writeln;
    end;
  readkey;
end.

[volvo]

При транспонировании матрицы 10x8 не получается вторая матрица 10х8, а получается 8х10. Придется тебе описывать второй тип для транспонированной матрицы.

А все, чего ты добилась своим кодом - это вылет за пределы массива, при попытке в строке b:=a[i,j]; обратиться к элементу 9-го столбца при i = 9 . Ну запускайте же уже программы с контролем границ!!! (Options -> Compiler -> [X] Range Checking)

Может, в правила раздела это написать: "прежде чем задать вопрос на форуме, убедитесь, что программа компилируется в режиме [X] Range checking [X] Stack checking [X] I/O checking [X] Overflow checking"?