Урок 11 Задача 14

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

var z, a: integer;
begin
  z := 5;
  while true do
        begin
        if (z < 0) then
        break;
        begin
        readln(a);
        if (a >= 15) then
           begin
                z := z + 1;
                writeln(z);
           end else
           if (a < 15) then
           begin
                z := z - 1;
                writeln(z);
           end;
           end;
           end;
  readln();
end.