Имеется n итоговых оценок студента. Определите, является ли студент отличником (все оценки не ниже 9)

StringList.text:=строковый массив оценок
for i:=0 to StringList.Count-1 do 
   if IntToStr(StringList[i]) < 9 then begin
      ShowMessage('Студент не отличник'); exit; end;
          if i = StringList.Count-1 then ShowMessage('Студент отличник'); 
end;

var
StringList:TStringList;
i:integer;
begin
StringList:=TStringList.Create;
for i:=0 to StringList.Count-1 do
begin
   if StrToInt(StringList[i]) < 9 then begin
      ShowMessage('Студент не отличник'); exit; end;
          if i = StringList.Count-1 then ShowMessage('Студент отличник');
end;
end;

for i:=0 to StringList.Count-1 do
begin                                                              //Отсюда
   if StrToInt(StringList[i]) < 9 then begin
      ShowMessage('Студент не отличник'); exit; end; //и досюда переменная i имеет определенное значение
          if i = StringList.Count-1 then ShowMessage('Студент отличник'); //А вот тут в ней уже то, что бес придумает