Массивы. Транспонирование матрицы Опции

[DeBo4ka_BecHa]

Помогите пожалуйста составить прогу транспонирования квадратной матрицы!!!!Очень нужно! Кучу ссылок пересмотрела-ничерта не понимаю, чайник полный а сдавать как то надо! Помогите!!!

[ПЛЕТНЁВ]

ТЕКСТ ПРОГИ которая транспонирует матрицу 10 на 10
Program transponir;
uses crt;
var i,j:integer;
mas:Array [1..10,1..10] of integer;
begin
clrscr;
writeln ('NE TRANSPONIROVANNAIA');
For i:=1 to 10 do
begin
For j:=1 to 10 do
begin
mas[i,j]:=random(10);
write (' ',mas[i,j]);
end;
writeln;
end;
writeln ('TRANSPONIROVANNAIA');
For j:=1 to 10 do
begin
For i:=1 to 10 do
begin
write (' ',mas[i,j]);
end;
writeln;
end;
readkey;
end.
если что не так пиши исправлю