Транспонировать матрицу

program matr;
Uses crt;
 
var n,i,j,p,k,H,i0,j0:integer;
    const nmax=6;
var a:array[1..nmax,1..nmax] of integer;
       Ch: char;
    label l1,l2;
    begin
 
begin
 
 randomize;
writeln('Задать размер матрицы 1-постоянный n=6 2-самостоятельно');
repeat
read(k);
until k in [1,2];
case k of
1:n:=6;
2:begin
  repeat
  write('Введите размер матрицы, четное число от 2 до ',nmax,' n=');
  read(n)
  until (n in [2..nmax]);
  end;
end;
writeln('Создать матрицу рандомно-1 или ввести с клавиатуры-2');
repeat
read(k);
until k in [1,2];
case k of
1:begin
randomize; 
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(15);
        write(a[i,j]:4);
      end;
  writeln;
  end;
  end;
2:
begin
   writeln('Введите матрицу ');
   for i:=1 to n do
   for j:=1 to n do
    begin
     write('a[',i,',',j,']=');
     read(a[i,j]);
      end;
      begin
write(a[i,j],'');
writeln;
end;
clrscr;
   
  writeln('Исходная матрица');
  for i:=1 to nmax do 
  begin
    for j:=1 to nmax do write(a[i,j]:4);
      writeln; 
      end;
  end;
   end;
   
 
 
begin
repeat
  writeln('Введите номер строки и столбца');
  write('Строка-'); 
  readln(p);
if (p>n) then writeln('Неверно заданое число. Повторите ввод!');
until (p=n) or (p<n);
begin
repeat
  
  
  write('Столбец-');
  readln(k);
if (k>n) then writeln('Неверно заданое число. Повторите ввод!');
 until (k=n) or (k<n);
 
 writeln('Новая матрица:');
 for i:=1 to n
 do begin
  H:= A[p,i] ;
  
 A[p,i]:=A[i,k];
   A[i,k]:=H;
 end;
 for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(a[i,j]:4);
      end;
  writeln;
  end;
  end;
  end;
 
 
end;
end.

program matr;
 
uses
  crt;
 
const
  nmax = 6;
 
type
  mas = array[1..nmax, 1..nmax] of integer;
 
var
  n, i, j, p, k, H, i0, j0: integer;
 
var
  a: mas;
  Ch: char;
 
procedure randomz(n: integer; var a: mas);
var
  i, j: integer;
begin
  randomize; 
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(15);
      write(a[i, j]:4);
    end;
    writeln;
  end;
end;
 
procedure vvod(n: integer; var a: mas);
var
  i, j: integer;
begin
  writeln('Введите матрицу ');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']=');
      read(a[i, j]);
    end;
  begin
    write(a[i, j], '');
    writeln;
  end;
  clrscr;
  
  writeln('Исходная матрица');
  for i := 1 to nmax do 
  begin
    for j := 1 to nmax do write(a[i, j]:4);
    writeln; 
  end;
end;
 
procedure vivod(n, p, k: integer; var a: mas);
var
  i, j, H: integer;
begin
  writeln('Новая матрица:');
  for i := 1 to n
        do 
  begin
    H := A[p, i];
    
    A[p, i] := A[i, k];
    A[i, k] := H;
  end;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:4);
    end;
    writeln;
  end;
end;
 
label l1, l2;
begin
  writeln('Задать размер матрицы 1-постоянный n=6 2-самостоятельно');
  repeat
    read(k);
  until k in [1, 2];
  case k of
    1: n := 6;
    2:
      begin
        repeat
          write('Введите размер матрицы, четное число от 2 до ', nmax, ' n=');
          read(n)
        until (n in [2..nmax]);
      end;
  end;
  writeln('Создать матрицу рандомно-1 или ввести с клавиатуры-2');
  repeat
    read(k);
  until k in [1, 2];
  case k of
    1: randomz(n, a);
    2: vvod(n, a);
  end;
  repeat
    writeln('Введите номер строки и столбца');
    write('Строка-'); 
    readln(p);
    if (p > n) then writeln('Неверно заданное число. Повторите ввод!');
  until (p = n) or (p < n);
  repeat
    write('Столбец-');
    readln(k);
    if (k > n) then writeln('Неверно заданное число. Повторите ввод!');
  until (k = n) or (k < n);
  vivod(n, p, k, a);
end.