error bhim

program permutation ;
Uses WinCrt;
type
 tab = Array[1..100] of integer ;
Const
 n = 8;
var
 t : tab ;
 a,c,b,e: integer ;
begin
    for a := 1 to n do

        t[a] := a;
        {write('7ot el conetenu mta3 T[',a,'] : ');
         readln(t[a]);}
     write('T : ');
    for a:= 1 to n do
     write(a,'-',t[a],'/');
    writeln;
    b := n+1;
    for a:= 1 to n do
      begin
                 b:=b-1;
         c:=t[a] ;
                                                                                     write('   C : ',c:2);
         t[a] := t[b] ;
                                                                                 write('   A',a:2,' : ',t[a]:2);
         t[b] := c;
                                                                                write('   B',b:2,' : ',t[b]:2);
                                                                                 writeln;

        end;
    Write('T1: ');
    for a := 1 to n do
     write(a,'-',t[a],'/');
End.