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

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