Задача 7 урок 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.>>>>>>>>>>>
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

var b, i: integer;
begin
  repeat
    writeln('Vvedite celoe chislo > 0');
    readln(b);
    if (b <= 0) then
      writeln('Error')
    else
      for i := 1 to b do
        if i mod 2 = 0 then
          write(i,' ');
  until(b <= 0);
  readln();
end.