Решить систему не линейных уравнений методом простых итераций. Проверить на сходимость.

sin(y+1)-x=1.2
2y+cosx=2

q=0,001

Помогите реализовать на Delphi.