Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. Паскаль, цикл while

var
  a,b:integer;
begin
  Write('Введите a и b: '); Read(a,b);
  if a mod 2<>0 then inc(a);
  while a<=b do begin
    Write(a,' ');
    a:=a+2
    end
end.


Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10