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

У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.

Цикл и программа должны завершиться, когда число z станет отрицательным.
(в начале цикла, если первое введенное число не равно ни 55, ни 77, считаем, что мы должны увеличивать z на 1 пока не встретим 55 или 77, которые укажут на конкретные действия).

var z,a,i:integer;
begin
  z:=5;
  i:=1;
  while true do
begin
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a=77) then  i:=1;
  if (a=55) then i:=0;
  if(i=1) then z:=z+1;
  if(i=0) then z:=z-1;
  writeln('Otvet: ',z);
end;
end. 

Консоль:

Vvedite celoe chislo: 
8

Otvet: 6
Vvedite celoe chislo: 
55

Otvet: 5
Vvedite celoe chislo: 
8

Otvet: 4
Vvedite celoe chislo: 
9

Otvet: 3
Vvedite celoe chislo: 
77

Otvet: 4
Vvedite celoe chislo: 
9

Otvet: 5
Vvedite celoe chislo: