Двумерные массивы., [Нужна помощь по задачкам] Опции

[worp]

Помогите решить три задачки пожалуйста.

Первая:
Задана матрица А размерностью 3х6. Сделать поворот относительно главной диагонали.

Вторая:
Задана матрица А размерностью 15х10. Найти рядок с наименьшим элементом и поменять его местами с последним.

Третья:
Задана матрица А размерностью 7х5 та матрица В размерностью 7х4. Сделать добавление А+В, результат записать в матрицу С.

Спасибо за внимание.
[Прошу прощение, если тема не в том разделе. По возможности прошу перенести данную тему в нужный раздел]

[worp]

В первой задаче нужно сделать транспонирование матрицы.

Спасибо за помощь. Вот что получилось:
Задача №2.

const
  n=15;
  m=10;
type
  matr=array[1..n,1..m] of integer;
var
  a:matr;
  i,j,imin,jmin,i_point,buf:integer;
begin
  randomize;
  {Vyvod}
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(100)+5;
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
  writeln;
  {Poisk min, stroki min}
  imin:=1;jmin:=1;
  for i:=1 to n do
    for j:=1 to m do
      begin
        if a[i,j]<a[imin,jmin] then
          begin
            imin:=i;
            jmin:=j;
            i_point:=i;
          end;
      end;
  writeln('Min:',a[imin,jmin],' ego stroka: ',i_point,' Press enter...');
  readln;
  if i_point=n then{nomer stroki s min posledniy}
    writeln('Element nahoditsa v poslednei stroke. Nichego ne menyaem.')
  else
    begin
    {Obmen}
    for j:=1 to m do
      begin
        buf:=a[i_point,j];
        a[i_point,j]:=a[n,j];
        a[n,j]:=buf;
      end;
    {Vyvod}
    writeln('Posle obmena:');
    for i:=1 to n do
      for j:=1 to m do
        begin
          write(a[i,j]:4);
          if j=m then
            writeln;
        end;
    writeln;
  end;
end.

Осталась первая задача. Помогите пж.