Lập trình pascal. Dùng longint Đề: Tính tổng giá trị chênh lệch giữa 2 chữ sô liền kề nhau của n

uses crt;
var n:longint;
    a,b:byte;
    t:word;
begin
    clrscr;
    readln(n);
    a:=n mod 10;
    n:=n div 10;
    t:=0;
    while n<>0 do
       begin
           b:=n mod 10;
           n:=n div 10;
           t:=t+abs(a-b);
           a:=b;
       end;
    writeln(t);
readln;
end.