Вывести заданный текст в правый нижний угол графического окна - PascalABC.NET

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

Напишите процедуру TextOutRightBottomCorner, которая выводит заданный текст в правый нижний угол графического окна. Текст должен располагаться в указанном месте независимо от своего размера.

Решение задачи: «Вывести заданный текст в правый нижний угол графического окна»

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

uses GraphABC;
 
procedure TextOutRightBottomCorner(msg : String) := TextOut(Window.Width-TextWidth(msg),Window.Height-TextHeight(msg),msg);
 
begin
  Window.Clear(rgb(0,0,0));
  Brush.NETBrush := nil;
  Font.Name := 'Times New Roman';
  Font.Size := 80;
  Font.Color := rgb(192,192,255);
  TextOutRightBottomCorner(';–)');
  Font.Color := rgb(128,128,128);
  Font.Size := 8;
  TextOutRightBottomCorner(' Упс! '*100);
  Font.Size := 20;
  Font.Color := rgb(255,255,192);
  TextOutRightBottomCorner('Вот это да!');
end.

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

Объявлена процедура TextOutRightBottomCorner, которая выводит текст в правый нижний угол графического окна.
В основной части программы выполняется очистка окна, установка параметров шрифта и цвета, а затем вызов процедуры TextOutRightBottomCorner для вывода текста.
Значение переменной msg принимает строку ';–)' и передается в качестве аргумента в процедуру TextOutRightBottomCorner.
Затем значение переменной msg заменяется на строку ' Упс! '*100 и выводится в окно.
Значение переменной msg заменяется на строку 'Вот это да!' и выводится в окно.