Дано трёхзначное число. что больше количества сотен или единиц? по программе ветвления написать. заранее !

Var a : Integer;
Begin
  Readln(a);
  If (a mod 100) div 10>(a mod 10) then Writeln('сотни') else
   If (a mod 100) div 10<(a mod 10) then Writeln('единицы') else Writeln('одинаково');
end.