Задание 15 Урок 11

Задание 15 Урок 11:

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

var a, z: integer;
begin
	z := 5;
	a := 0;

  while (z >= 0) do
    begin
        if (a = 77) then
            begin
                z := z + 1;
                writeln('z = ', z);
            end
        else if (a = 55) then
            z := z - 1
        else if (z = 0) then
            z := z - 1;

        while (a = 77) do
          begin
              while (a <> 55) do
                begin
                    write('Введите целое число: ');
	                readln(a);
	                if (a <> 55) then
	                    begin
	                        z := z + 1;
	                        writeln('z = ', z);
					    end
                    else
                        z := z - 1;
                end;
          end;

        while (a = 55) do
          begin
              while ((a <> 77) and (z >= 0)) do
                begin
                    writeln('z = ', z);
                    write('Введите целое число: ');
	                readln(a);
	                if (a <> 77) then
	                    z := z - 1;
                end;
          end;

        while ((a <> 77) and (a <> 55) and (z >= 0))  do
          begin
              write('Введите целое число: ');
              readln(a);
              if ((a <> 77) and (a <> 55)) then
                  begin
                      z := z + 1;
                      writeln('z = ', z);
				  end;
          end;
    end;

  writeln('------');
  writeln('Удачи!');
  readln();
end.

Консоль:

Введите целое число: 55
z = 4
Введите целое число: 2
z = 3
Введите целое число: 77
z = 4
Введите целое число: 2
z = 5
Введите целое число: 8
z = 6
Введите целое число: 55
z = 5
Введите целое число: 2
z = 4
Введите целое число: 5
z = 3
Введите целое число: 6
z = 2
Введите целое число: 4
z = 1
Введите целое число: 2
z = 0
Введите целое число: 1
------
Удачи!