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

http://fkn.ktu10.com/?q=node/7341

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

program task16_lesson11;
var z,input,counter:integer;
  a:boolean;
begin
  z := 5;
  counter := 0;
  a := true;
  while (z >= 0) do
        begin
          writeln('Polzovatel');
          readln(input);

          //задаем условие переключения от +1 к -1 и обратно
          if (input >= 15) then
             a := true
          else if ((counter mod 4) = 0) then   // проверка на 4 попытки
              a := false;

          if a then
              begin
               counter := counter + 1;  //считаем попытки
               z := z + 1
              end
          else
              z := z - 1;
          writeln('Otvet: ',z);
        end;
end.