Найти самую большую разницу между цифрами числа

var   a, max, t:integer; begin   write('Введите число '); readln(a);   max := abs(a mod 10 - (a mod 100) div 10);   while a div 10 <> 0 do   begin     t := a div 10;     while t <> 0 do     begin       if abs(t mod 10 - a mod 10) > max then         max := abs(t mod 10 - a mod 10);       t := t div 10;      end;     a := a div 10;   end;   writeln('Max = ', max); end.