CAN ANY ONE RE-DO THIS TO MAKE IT MORE EASYER?

Posted by Kevin Walters :-) on March 29, 2003 at 11:01:12:

Can anyone re=do this without changing the basic layout?
Thanks
Kev : Laaaaaattttteeeeeee

procedure displayGrade(mark : integer);
begin
  case mark of
    0..49 : writeln('Fail');
    50..64: writeln('Pass');
    65..79: writeln('Credit');
    80..100:writeln('Honours');
  else
    writeln('invalid entry');
  end; //case
end;

var
  Grade : integer;
begin
  repeat
    Write('Enter Grade or mark (-1 to stop) >');
    readln(Grade);
    if Grade <> stop then
      displayGrade(Grade);
  until Grade = stop
end.