Решение задачи №16 из главы 11

Решение задачи №16 из главы 11

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

Вывод консоли
Vvedite chislo
16
Vvedite chislo
17
Vvedite chislo
18
Vvedite chislo
19
Vvedite chislo
110
6
Vvedite chislo
15
5
Vvedite chislo
22
Vvedite chislo
22
Vvedite chislo
22
Vvedite chislo
22
6
Vvedite chislo

var z,a,j:integer;
begin
  z:=5;
  j:=0;
  while z < 100 do
  begin
    writeln('Vvedite chislo');
    readln(a);
  if z < 0 then
     break;
  if  (a >= 15)  then
     begin
      j:=j+1;
     end;
  if (j=5) AND (a >= 15) then
     begin
      z:=z+1;
      writeln(z);
      j:=0;//счетчик чтобы повторить еще 4 попытки
     end;

  if a <= 15 then
     begin
      z:=z-1;
      writeln(z);
     end;
  end;
   readln();
end.