Найти сумму цифр которые больше 5- Pascal(Паскаль)

uses crt;
var a,sum,j:integer;
Begin
write('Chislo= ');
readln(a);
sum:=0;
Repeat
 
      j:=a mod 10;
      if j>5 then sum:=sum+j;
      a:=a div 10;
 
Until a=0;
 
writeln(sum);
 
End.