Объясните код - PascalABC.NET

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

Код от цифровых часов,расскажите подробно что делает каждый код,пожалуйста.

uses GraphABC,System;
 
begin
  Font.Size := 80;
  var x0 := (Window.Width - TextWidth('00:00:00')) div 2;
  var y0 := (Window.Height - TextHeight('00:00:00')) div 2;
  while True do
  begin
    var t := DateTime.Now;
    var s := string.Format('{0:d2}:{1:d2}:{2:d2}',t.Hour,t.Minute,t.Second);
    TextOut(x0,y0,s);
    Sleep(1000);
  end;
end.

Зарние спасибо.(только как можно подробней)

Решение задачи: «Объясните код»

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

                            uses GraphABC,System; // Подключение модулей
 
begin
  Font.Size := 80; // установка размера шрифта
  // инициализация левого верхнего угла для вывода текста в центре экрана
  var x0 := (Window.Width - TextWidth('00:00:00')) div 2;
  var y0 := (Window.Height - TextHeight('00:00:00')) div 2;
  while True do // бесконечно повторять
  begin
    var t := DateTime.Now; // получить текущее время
    var s := string.Format('{0:d2}:{1:d2}:{2:d2}',t.Hour,t.Minute,t.Second); // получить строку вида NN:NN:NN
    TextOut(x0,y0,s); // вывести строку в указанных координатах
    Sleep(1000); // подождать 1 сукцнду
  end;
end.
                        