ПАСКАЛЬ ABC! ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ! Дано многозначное число, проверьте , является ли его сумма четной

спасибо большое !

varx, sum:integer;BeginWrite('Введите число '); Readln(x);while (x > 0) do begin  sum:= sum + x mod 10;  x:=x div 10end;if (sum mod 2 = 0)then  Writeln('YES')else  Writeln('NO');end.