Lập trình pascal đơn giản dùng longint Đề: Tìm giá trị chênh lệch lớn nhất giữa 2 chữ số liền kề nhau của n

uses crt;
var a,n,max,d:longint; 
begin
clrscr;
   write(‘Nhap n: ‘);readln(n);
   a:=0; d:=0;
   while n<>0 do 
      begin 
         d:=d+1;
         if (abs(n mod 10-a)>max)and(d<>1) then max:=abs(n mod 10-a);
         a:=n mod 10;
         n:=n div 10;
      end;
   writeln(max);
readln
end.