My old code in Pascal got Runtime Error ( NZEC ) in problem TTABLE !
I tried much time to find where is my mistake , but it's a bug of Pascal ! The new version of Free Pascal isn't really better , it still has many bugs 
The administrators should take a look at this bug.
Here is my old code :
Type Xau = String[5] ;
...
Var S1 , F1 : Xau ;
ch : char ;
v : longint ;
...
Readln( S1 , ch , F1 , v ) ;
....
And here is the accepted code :
Var S1 , F1 : array[1..5] of char ;
ch : char ;
v : longint ;
...
For i := 1 to 5 do read( S1[i] ) ;
read( ch ) ;
For i := 1 to 5 do read( F1[i] ) ;
readln( v ) ;
...