Помогите составить подпрограмму в паскале

[Nitriyc]

Задача подпрограммы транспонировать квадратную матрицу 5 порядка. Или намекните как это сделать. Заранее спс.

[NSvirus]

ок, намекаю: почитай что такое транспонация матрицы.

[ОДИНОЧЕСТВО В СЕТИ]

procedure trans(x,y:integer;mt:matrix; var mt1:matrix);
var i,j:integer;
begin
for i:=1 to x do
for j:=1 to y do
mt1[j,i]:=mt[i,j];
end;

[Nitriyc]

спасибо!!!