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

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.