Определение значение целочисленных переменных х и у после выполнения фрагмента алгоритма

Код программы
var
    x, y, step: integer;

begin
    x := 10;
    y := 15;
    step := 0;
    while y < 16 do
    begin
        if x <= y then begin
            x := x + 5;
            y := y - 5;
        end
        else begin
            x := x - 2;
            y := y + 2;
        end;
        step := step + 1;
        writeln(step, ' x=', x, ' y=', y)
    end;
    writeln(x, ' ', y)
end.

Вывод
1 x=15 y=10
2 x=13 y=12
3 x=11 y=14
4 x=16 y=9
5 x=14 y=11
6 x=12 y=13
7 x=17 y=8
8 x=15 y=10
9 x=13 y=12
10 x=11 y=14
11 x=16 y=9
12 x=14 y=11
13 x=12 y=13
14 x=17 y=8
15 x=15 y=10
16 x=13 y=12
17 x=11 y=14
18 x=16 y=9
19 x=14 y=11
20 x=12 y=13
21 x=17 y=8
22 x=15 y=10
23 x=13 y=12
24 x=11 y=14
25 x=16 y=9
26 x=14 y=11
27 x=12 y=13
28 x=17 y=8
29 x=15 y=10
30 x=13 y=12
31 x=11 y=14
32 x=16 y=9
33 x=14 y=11
34 x=12 y=13
35 x=17 y=8
36 x=15 y=10
37 x=13 y=12
38 x=11 y=14
39 x=16 y=9
40 x=14 y=11
41 x=12 y=13
42 x=17 y=8
43 x=15 y=10
44 x=13 y=12
45 x=11 y=14
46 x=16 y=9
47 x=14 y=11
48 x=12 y=13
49 x=17 y=8
50 x=15 y=10
51 x=13 y=12
52 x=11 y=14
53 x=16 y=9
54 x=14 y=11
55 x=12 y=13
56 x=17 y=8
57 x=15 y=10
58 x=13 y=12
59 x=11 y=14
60 x=16 y=9
61 x=14 y=11
62 x=12 y=13
63 x=17 y=8
64 x=15 y=10
65 x=13 y=12
66 x=11 y=14
67 x=16 y=9
68 x=14 y=11
69 x=12 y=13
70 x=17 y=8
71 x=15 y=10
72 x=13 y=12
73 x=11 y=14
74 x=16 y=9
75 x=14 y=11
76 x=12 y=13
77 x=17 y=8
78 x=15 y=10
79 x=13 y=12
80 x=11 y=14
81 x=16 y=9
82 x=14 y=11
83 x=12 y=13
84 x=17 y=8
85 x=15 y=10
86 x=13 y=12
87 x=11 y=14
88 x=16 y=9
89 x=14 y=11
90 x=12 y=13
91 x=17 y=8
92 x=15 y=10
93 x=13 y=12
94 x=11 y=14
......

Мы получаем бесконечный цикл
Значит ответа мы никогда не узнаем