Поворот матрицы на 45 градусов по часовой стрелке

const n=5;
var
  a: array [1..n,1..n] of char;
  b: array [1..2*n-1,1..2*n-1] of char;
  i, j: Integer;
begin
  for i:=1 to n do for j:=1 to n do read(a[i,j]);
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]); WriteLn;
  end;
  for i:=1 to n do for j:=1 to n do b[i+j-1,n+j-i]:=a[i,j];
  for i:=1 to 2*n-1 do begin
    for j:=1 to 2*n-1 do write(b[i,j]);
 
  end;
end.

var n, r, c, l : integer; a : array [1..10, 1..10] of Char;
begin
  Read(n); for r := 1 to n do for c := 1 to n do a[r, c] := chr(ord('A') + Random(26));
  for r := 1 to n do begin for c := 1 to n do Write(#32, a[r, c]); WriteLn; end;
  WriteLn;
  for l := 1 to n do
    begin
      Write(#32:n-l+1);
      c := 1;
      for r := l downto 1 do
        begin
          Write(#32, a[r, c]); inc(c);
        end;
      WriteLn;
    end;
  for l := n-1 downto 1 do
    begin
      Write(#32:n-l+1);
      c := n-l+1;
      for r := n downto c do
        begin
          Write(#32, a[r, c]); inc(c);
        end;
      WriteLn;
    end;
end.