задачка такая

[Archangelos]

дана матрица A(n*n). Написать программу, которая меняет кю и мю строки матрицы, а затем транспонирует матрицу.

[Hacker19_90]

....
const
    n = ????;
var
    A: array[1..n,1..n] of ????;
    transA: array[1..n,1..n] of ????;
    i, j: byte;
    Temp: ????;
    Num1, Num2: byte;
begin
    ......
    {Замена}
    for j := 1 to n do
    begin
         Temp := A[Num1, j];
         A[Num1, j] := A[Num2,j];
         A[Num2,j] := Temp;
    end;
    {Транспонирование}
    for i := 1 to n do
        for j := 1 to n do
        begin
            transA[j,i] := A[i,j];
        end;
.....