Ce programme me rend fou

Bonjour,

le programme consiste à charger le nom et la moyenne de n élèves
dans deux tableaux différents
ensuite d'afficher si l'élève passe ou redouble

le programme ne lit que la premier fois le nom de l'élève



T tableau de réels
T1 tableau de chaines de cataractes


voici le code :





program tableau;
uses wincrt;
type
tab1=array [1..10] of string;
tab=array [1..10] of real;

var

T: tab;
T1 : tab1;
i,n: integer;

begin




repeat
write('saisir nombre d''eleve : ');
readln(n);
until ((n>=5) and (n <= 10));




for i:=1 to n do
begin
write('saisir le nom de l''eleve n° ',i,' : ');
readln(T1[i]);
repeat
write('saisir la moyenne de l''eleve ', T1[i],' : ');
read (T[i]);
until ((T[i]>=0) and (T[i]<=20));

end;

for i:= 1 to n do

if ( T[i] >=10)
then writeln (T1[i],' est admis avec une moyenne de:' , T[i]:5:2)
else writeln (T1[i],' est refusé avec une moyenne de:' , T[i]:5:2) ;



end.







SVP une solution !!