WriteLn

WriteLn{переводим строку 11 раз, используя процедуруWriteLn без параметров соответствующее количество раз}

WriteLn; {теперь строка 12 является текущей и информация будет выводиться в нее}

write(' ');

{Выводим 24 пробела, соответственно, каретка перемещается в позицию 25}

Write('Строка, выровненная по центру'); { выводим строку)

ReadKey; {программа приостанавливается до нажатия пользователем клавиши}

CIrScr; {очистка экрана. Экран окрашивается в черный цвет. Все программы, выполняющиеся после завершения данной, будут использовать стандартную цветовую гамму}

End. {конец раздела описания логики программы, информация, которая выводилась на экран в процессе работы программы, удалена}

Модуль CRT содержит более развитые средства для расположения текстовой информации на экране. Процедура GotoXY(англ. Go to X,Y - переместить в точку с координатами координаты X, Y) позволяет переместить каретку в любую часть экрана. Данный оператор используется с двумя параметрами, определяющими новое положение каретки, и выглядит следующим образом:

GotoXY(<Горизонтальная координата>, <Вертикальная координата>);

Вертикальная координата определяет номер экранной строки, в которую должна переместиться каретка и может принимать значение от 0 (первая строка) до 23 (последняя строка). Горизонтальная координата определяет положение каретки в новой строке от левого края экрана и может изменяться от 0 (самое левое положение) до 79 (самое правое положение).

Таким образом, программу, приведенную в предыдущем примере, можно реализовать следующим образом.