Найти сумму целого числа больше  5 в Паскале.  Помогите пожалуйста!! Заранее спасибо))

Программу из комментариев переписал для паскаля.

var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.