Решите пожалуйста. Очень нужно. У меня не получается

Вывод блок схемы:

x=3

y=12

Программа на паскале:

program block;

var x,y:integer;

begin

x:=5;

y:=10;

while y<=10 do begin

 if x<=y

   then begin

     x:=x+1;

     y:=y-1;

   end

   else begin

     x:=x-5;

     y:=y+5;

   end;

 end;

writeln('Вывод блок-схемы: x=',x,' y=',y)

end.  

можно по подробнее пожалуйста

Вводные данные: x = 5; y=10
Условие: Y меньше или равно 10. Y=10. Условие истинно, поэтому идём по пути "Да"
Условие: X меньше или равно Y. X=5. 5<10. XИзменение значений: X=X+1; Y=Y-1. То есть X=5+1=6; Y=10-1=9. Идём по стрелке в начало. Выполняем всё то же самое с новыми значениями
Условие: Y<=10. 9<10. Путь "Да"
Условие: X<=Y. 6<9. Пусть "Да"
Изменение значений: X=X+1; Y=Y-1. X=6+1=7; Y=9-1=8. Далее
Условие: Y<= 10. 8<10. Путь "Да"
Условие: X<=Y. 7<8. Путь "Да"

Изменение значений: X=8; Y=7
Условие: Y<=10. "Да"
Условие: X<=Y. 8>7. Путь "Нет"
Изменение значений: X=X-5; Y=Y+5. X=8-5=3; Y=7+5=12. Далее
Условие: Y<=10. 12>10. Путь "Нет"
Вывод значений: X=5; Y=12. Конец.

благодарю