Условия вывода на экран, writeln и его особенности Опции

[Alex7]

Наперед извиняюсь, если создал похожую на существующую.
Вобщем хочу спросить у знающих люжей как можно задать условие при выводе на экран длинной информации(в цикле). Нужно сделать так, чтобы после того как курсор переходит границу по Х-су, то чтобы переходил на новую строчку.
Была попытка реализовать это так:
If wherex>72 then writeln;
Но условие не работает, видимо из-за несоответствуюших значений wherex. Вобщем ХЕЛП!
Кидаю сюда "прогу", куда(первое условие case) мне это надо вставить.