Модификация двумерных массивов, Поворот матрицы на 90 градусов Опции

[FENIX]

Условия:
1) Массив должен иметь не менее 12 и не более 20 строк и столбцов.
2) Перед обработкой данных необходимо вывести исходный массив на экран.

Задание:
Задан квадратный массив целых чисел в диапазоне от -99 до 99.
Переместить числа так, чтобы эта операция была эквивалентна повороту массива на 90 градусов по часовой стрелке. Результат вывести на экран.

Заранее спасибо.

З.Ы. Всем GL & HF

[volvo]

FENIX
Изменяй процедуру Transpose:

Код

Procedure Transpose(Var res: TMatrix; m: TMatrix);
 var i, j: integer;
 begin
   for i := 1 to n do
     for j := 1 to n do
       res[n-j+1, i] := m[i, j]
 end;