Делфи, , запрогайте это, умоляю на делфи по количеству , набранных на егэ ,вывести оценку для аттестата (100-отлично)

Var
    n: integer;

begin
    readln(n);
    case n of
        100: writeln('отлично списал');
        80..99: writeln('не отлично списал');
        60..79: writeln('фигово списал');
        40..59: writeln('молодец');
        20..39: writeln('не молодец');
        0..19: writeln('нет слов');
    else writeln('не верно ввел');
    end;
end.