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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа 316182022четыре числа 3....3....и т.д.

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