Помогите, пожалуйста, решить матрицу Опции

[Альберт]

Привет народ помогите, пожалуйста, решить задачу.
Нужно преобразовать матрицу, осуществив поворот элементов
вокруг его центра на 90 гр. против часовой стрелки.
                             1 2 3              3 3 3
Была матрица:     1 2 3  стала:  2 2 2
                             1 2 3              1 1 1
Мыльте кому не трудно на albert01@nyagan.wsnet.ru
Спасибо.

[trminator]

Дополнительный массив можно использовать? а то без него лениво...

Код

const n = 3;
var a, b : array[1..n, 1..n] of byte;
   i, j : integer;
begin
{ввод матрицы}
  writeln('input your matrix ', n, ' x ', n);
  for i:=1 to n do for j:=1 to n do read(a[i,j]);

{переворот}
  for i:=1 to n do
      for j:=1 to n do b[j,i]:=a[i,j];

{вывод матрицы}
  for i:=1 to n do begin
    for j:=1 to n do write(B[i,j],' ');
    writeln
  end;
end.