Численные методы на Delphi, Метод простых итераций Опции

[s0ul]

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

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

q=0,001

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