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

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

var a, z, f: integer;
       flag: boolean;
begin
    z := 5;
    f := 0;
    while (z >= 0) do
    begin
      writeln('Vvedite celoe chislo');
      readln(a);
      f := f + 1;
      if (a >= 15) AND (f < 4) then
      begin
        flag := true;
        f := 0
      end;
      if (f > 3) then
      begin
        f := 0;
        flag := false;
      end;
      if flag then
        z := z + 1
      else
        z := z - 1;
      writeln('Otvet ', z);
    end;
    writeln('Exit');
    readln();
end.