Транспонирование матрицы относительно побочной диагонали

Program mat;
type Matr=array [0..100,0..100] of integer;
var mas,a:Matr;
 pr,x,y,n,d,p:integer;
 i,j:byte;
 procedure Skalproizv(a:matr);
  var
   x,y:integer;
   i:byte;
  begin
  write('Vvedite nomera stroki i stolbca:');
  readln(x,y);
    for i:=0 to n-1 do
     pr:=0;
      for i:=0 to n-1 do
       pr:=pr+a[x-1,i]*a[i,y-1];
   writeln('Skal proizv=',pr);
   end;
 procedure transpon(a:matr);
  var
   prom:integer;
   i,j:byte;
  begin
  for i:=0 to n-1 do
   for j:=0 to n-1 do
    mas[i+1,j+1]:=a[i,j];
     for i:=1 to n-1 do
      for j:=n-i downto 1 do
       begin
       prom:=mas[i,j];
       mas[i,j]:=mas[n-j+1,n-i+1];
       mas[n-j+1,n-i+1]:=prom;
       end;
       writeln;
      for i:=1 to n do
       begin
        for j:=1 to n do
        write(mas[i,j],' ');
        writeln;
       end;
    end;
 procedure Pereststrok(a:matr);
   var
  i,j:byte;
  begin
   write('Vvedite nomera perest strok:');
   readln(x,y);
    for j:=0 to n-1 do
    begin
     d:=a[x-1,j];
     a[x-1,j]:=a[y-1,j];
     a[y-1,j]:=d;
    end;
   for i:=0 to n-1 do
    begin
     for j:=0 to n-1 do
      write(a[i,j]:N-1,'');
      writeln;
    end;
    writeln;
  end;
 begin
 randomize;
 write('Vvedite razmernost matrici:');
 readln(n);
 for i:=0 to n-1 do
  for j:=0 to n-1 do
  a[i,j]:=random(10);
   for i:=0 to n-1 do
    begin
    for j:=0 to n-1 do
    write(a[i,j],' ');
    writeln;
    end;
  while p<>4 do
     begin
       writeln;
       writeln('Viberite deistvie');
       writeln('1 - Skalyarnoe proizvedenie stroki i stolbca');
       writeln('2 - Transponirovanie matrici otnositelno pobochnoi diagonali');
       writeln('3 - Perestanovka strok');
       writeln('4 - Vihod');
       readln(p);
       case p of
         1:skalproizv(a);
         2:transpon(a);
         3:pereststrok(a);
         4:else write ('Oshibka-proceduri ne naideno!');
       end;
      end;
  end.