Erreur dans un programme pascal

l'erreur expression booléenne attendue

Testez cette solution .. et si il y a un probléme sag Bescheid ;) :
---------------------------------------------------------------------------------------

{

Un programme permet de remplir un tableau T par une chaîne de caractére de longeur paire
puis afficher les élements de T qui contiennet la lettre A

@author [ton nom]
@version 1
}
program Tableau_test1;

uses wincrt;

type
tabl =array[1..100]of string;
var ch:string;
i, n, compteur:integer;
t:tabl;


begin

repeat
write('Donnez svp la taille de tableau --> .. ' );
readln(n);
until(n<=15)and(n>=5);

writeln('---------------------------');

for i:=1 to n do
begin
repeat
write ('Donnez svp l"élément n° .. ',i,' --> ');
readln(ch);
T[i]:=ch;
until (length(ch) mod 2 = 0); writeln;
end;
writeln('---------------------------');
compteur := 0;
for i:=1 to n do
begin
if (pos('A',t[i]) <> 0) then
begin
write('Resultat n° ',compteur+1,' est --> ');
writeln(t[i]);
compteur := compteur + 1;
end;
end;

if (compteur = 0) then
writeln('aucune chaine de caractére contient le caractére A');


end.

pas de quoi ;)

(si vous pouvez -votez- :p ) ! ^^