дана действительная квадратная матрица, порядка n. преобразовать матрицу по правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n сделать строкой с номером n.Составить блог схем

Uses crt; const       nmax = 20; var       a: array[1..nmax] of integer;       i, m, s: integer;       am, kon: text; begin       clrscr;       assign(am, 'am.txt');             {раскоментировать для записи массива в файл}       {rewrite(am);       m : = random(nmax - 5) + 5;       for i : = 1 to m do               writeln(am, random(20));       close(am); }             {считывание данных из файла}       reset(am);       s : = 0;       m : = 0;       while not eof(am) do       begin               m : = m + 1;               readln(am, a[m]);               s : = s + a[m];       end;       close(am);             assign(kon, 'kon.txt');       rewrite(kon);             if s > 50 then               writeln('сумма элементов массива более 50 и равна: s=', s)       else       begin               writeln('сумма элементов менее 50, вывод исходного массива');               for i : = 1 to m do               begin                       writeln('a[', i, ']=', a[i], ' ');                       writeln(kon, 'a[', i, ']=', a[i], ' ');               end;       end;             close(kon);       readkey; end.