Склавиатуры вводят два целых числа.укакого числа последний разряд (единица )меньше

Var
  m,n,d:integer;

begin
  Read(m,n);
  d:=m mod 10 - n mod 10;
  if d<0 then Writeln('У 1-го числа разряд единиц меньше')
  else
    if d>0 then Writeln('У 2-го числа разряд единиц меньше')
    else Writeln('У обоих чисел разряды единиуц равны')
end.