Перенос на новую строку outtext - Turbo Pascal

Формулировка задачи:

Здравствуйте! Вывожу цифры с помощью процедуры outtext, есть ли какая-нибудь процедура, которая проверяет если достигнут конец строки экрана, то указатель перемещается на начало строки, но уже ниже? Помогите, пожалуйста..

Решение задачи: «Перенос на новую строку outtext»

Листинг программы

  if txtX + TextWidth(s) > txtWidth then

Объяснение кода листинга программы

Проверяется условие txtX + TextWidth(s) > txtWidth.
Если условие истинно, то выполняется действие outtext(s), где s - это строка, которую необходимо вывести.
Значение переменной txtX увеличивается на величину TextWidth(s), где s - это строка, которую необходимо вывести.
Выполняется действие outtext(s), где s - это строка, которую необходимо вывести.