Программа для сортировки четных чисел (используется While...Do)

[AntoshkaK]

Программа должна выводить чётные числа из интервала, введенными с клавиатуры. Но, при этом если вводятся, например числа 6 и 8, то ничего не выводится, и так же точно, если второе число меньше первого.
Запутался
var
a1,a,ch:integer;
begin
writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(a1);
if a>a2 then
Writeln('Ошибка!')
else
begin
While (a..a1 mod 2<>0) do
writeln('Четные числа', ch);
end;
end.

[Артём-Программиzd]

VAR a,b,i:integer;
BEGIN
  readln(a,b);
  for i:=a to b do
    if(NOT odd(i)) then writeln(i);
END.

[Poma][a]

Сообщение от Артём-Программиzd

VAR a,b,i:integer;
BEGIN
  readln(a,b);
  for i:=a to b do
    if(NOT odd(i)) then writeln(i);
END.

а может лучше перед циклом вставить развилку с Odd там или a + 1 или оставить все как есть, а затем выводить i, но только уже инкриментируя двойкой ?

[Артём-Программиzd]

используя while...do:

VAR a,b:integer;
BEGIN
  readln(a,b);
  if(odd(a)) then inc(a);
  while(a<=b) do begin
    writeln(a);
    a:=a+2;
  end;
END.