Первый вариант, простой, но не практичный
program NewProject;
var
time:integer;
text: string;
begin
time := getCurrentTime;
text := '' + getYear(time);
DrawText(text, -15, 103);
repaint;
delay(2000);
end.
Второй вариант практичный
program NewProject;
var
time:integer;
text: string;
begin
time := getCurrentTime;
text := '' + getYear(time);
DrawText(text, 15, 103);
setColor(255, 255, 255);
fillRect(15, 103, 14, 14);
repaint;
delay(2000);
end.