Решение системы нелинейных уравнений методом итераций на Pascal

[Кушников]

Приветствую всех! Очень нужна ваша помощь! Помогите пожалуйста решить на паскале систему нелинейных уравнений методом итераций:
дана система из двух уравнений sin(x+1)-Y=1,2 и 2x+cosY=2. с точностью до 0.001 . В результате вывести таблицу итераций, то есть
|Xn+1 - Xn|<0.001, чтобы на каждой итерации выводило
Xn+1, Xn, и Xn+1-Xn. и тоже самое с Y. Заранее спасибо!