Срочно нужно начертить схему в паскаль, помогите пожалуйста

В смысле, этот чертеж начертить? А нахрена, позвольте спросить? Это трахомундия ради трахомундии какая-то, куча скучнейшего линейного кода.

Если очень приспичило, начерти его на автокаде, экспортируй в LISP, и попроси нейронку полученный код перевести на паскаль.