клавиатуры вводится трёхзначное число. Необходимо вывести ответ Да, если все его

Var chislo, x, i, s: integer;
begin
writeln('Введите число:');
readln(chislo);
x := chislo;
s := 0;
if ( chislo lt; 100 ) or ( chislo gt; 999 ) then writeln('Неправильное число!')
else begin
while ( x lt;gt; 0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
if s mod 2 = 0 then write('Да')
else write('Нет');
end;
end.