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

[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.

[Krjuger]

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

program zadacha;
uses crt;
type
  matr1=array[1..10, 1..8] of integer;
  matr2==array[1..8, 1..10] of integer;
var
  m:matr1;
  n:matr2;
  i,j:integer;
begin 
 randomize;
 writeln('ishodnaya matrica:');
    for j:=1 to 8 do{Я бы пошел построчно,при выводе будет лучше восприниматься}
    begin
      for i:=1 to 10 do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
    for i:=1 to 8 do
      for j:=1 to 10 do    
      begin
        m[i,j]:=n[j,i];
      end;
    writeln('transponirovannaya matrica:');
    for j:=1 to 10 do
   begin
     for i:=1 to 8 do
        write(n[i,j]:4);
      writeln;
    end;
  readkey;
end.

Ну в общем на основе твеого когда получается как то так.