Обход матриц

[Prosto_closno]

Помогите пожалуйста обойти матрицу используя Паскаль

[evg_m]

в каждый момент времени(из произвольной точки (X, Y)) мы должны двигаться по диагонали
либо вверх-влево (X-1, Y-1) либо вниз-вправо (X+1, Y+1) и не менять "направление"(+1 /-1) пока не упремся (X<0, Y>N, ...)
исключением будет невозможность такого перемещения (X-1<0, X+1>N, ...)
в таком случае перемещение вверх-влево заменяется перемещением: только вверх (X-1, Y); только вправо (X, Y+1)
перемещение вниз-вправо заменяется на : вправо (X, Y+1); вверх(X-1, Y)
на единственно возможный в каждом из случаев вариант.
и остановка если пути далее нет.

P.S. в начальный момент времени "предпочтительное" направление движения вверх-влево.

там конечно же другое правило обхода
https://programmersforum.ru/showthread.php?t=165972

[сфинкс]

поиск: змейкой