Permutation Matrice

Program Matrice ;
Uses Wincrt ;
Type
  mat = Array[1..5,1..5] Of Integer ;
Var
  t: mat ;
  n: Integer ;

Procedure saisie(Var n:Integer ;Var t:mat);
Var
  i,j: Integer ;
Begin
    readln (n);
    For i:=1 To n Do
    For j:=1 To n Do
      Begin
        Writeln('t[',i,' ',j,']');
        Readln (t[i,j]) ;
      End ;
End;

Procedure permute(n:Integer ; Var t:mat);
Var
  i,j,aux: Integer ;
Begin
  j := n ;
  For i:=1 To n Do
    Begin
      aux := t[i,i];
      t[i,i] := t[i,j] ;
      t[i,n] := aux ;
      j := j-1 ;
    End;
  For i:=1 To n Do
    Begin
      For j:=1 To n Do
        Writeln(t[i,j],' ');
    End ;
End;
Begin
  saisie(n,t);
  permute(n,t);
End.