Выставление оценки за результат

 ITOG:=(BALL/QST)*100;
  Result_Label_3.Caption:='Оценка: '+FloatToStrF(ITOG, ffGeneral, 10, 2);

 BALL: integer=0;                     
 QST: integer=0;                                         
 ITOG: Extended=0;

If (itog>= 90) and (itog<=100) then
Label3.Caption := 'Отлично';
If (itog>= 80) and (itog<=89) then
Label3.Caption := 'Хорошо';

if (ITOG >= 90) then begin
      Result_Label_3.Caption:='Оценка: ОТЛИЧНО';
    end else if(ITOG >= 80 ) then begin
                     Result_Label_3.Caption:='Оценка: ХОРОШО';
             end else begin
               Result_Label_3.Caption:='Оценка: УДОВЛЕТВОРИТЕЛЬНО';
               end;

var
  BALL: integer = 0;
  QST: integer = 0;
  ITOG: byte = 0;
 
begin
  ITOG:= Trunc(BALL/QST*100);
  case ITOG of
    90..100: ;   // отлично
    80..89: ;    // хорошо
    0..1: ;      // ужасно
    else ;       // удовлетворительно
  end;
end;