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

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

var N, i: integer;
       f: boolean;
begin
  f := true; //Флаг вывода нечетного числа
  writeln('Введите положительное число');
  readln(N);
  if (N > 0) then
    begin
      for i := 8 to N do
        begin
          if (i mod 2 = 0) then
            write(i, ' ')
          else if f then
            f := false
          else
            begin
              write(3, ' ');
              f := true
            end;
        end;
    end
   else
     writeln('Ошибка');
   readln();
end.