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

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.