Tableaux de caractères sous Pascal

Bonjour,
On me demande d'écrire un programme pascal qui fait le chargement d'un tableau de caractères et compte le nombre de succession de 'a' et 'b'.
Voici le code que j'ai utilisé:


Code :

Program Exo3 ;
Var T : array [1..30] of char;
I, N, Occ : Integer ;
Possible : Boolean ;
Begin
Write ('Entrez le nombre d''element du tableau (<=30) ') ;
readln(N) ;
Possible :=False ;
For i :=1 To N Do
Begin
Write ('Donnez la valeur de l''element ',i,' du tableau ') ;
Readln (T[i]) ;
If T[i]='a' then Possible :=True;
If (T[i]='b') and (Possible=True) then begin
Occ :=Occ+1;
Possible:=False;
end
else If ((T[i]<>'b') and (T[i]<>'a')) and (Possible=True) then
Possible:=false;
end;
write('Le d''apparition de la succession des deux caracteres ''a'' et
''b''est égal à ',Occ) ;
readln;
end.
Le problème qui se pose est que ce meme code s'execute parfaitement sur ma machine mais sur d'autres il s'arrete au chargement du premier caractère.
Pouvez vous m'aider SVP.