Вывести на экран текущие дату и время

uses crt,utils;
var sr: SearchRec;
    dt:DateTime;
begin
writeln('Текущая дата и время');
dt:=CurrentDateTime;
if dt.day<10 then write('0',dt.day,'.') else write(dt.day,'.');
if dt.month<10 then write('0',dt.month,'.') else write(dt.month,'.');
write(dt.year,' ');
if dt.hour<10 then write('0',dt.hour,':')else write(dt.hour,':');
if dt.minute<10 then write('0',dt.minute,':')else write(dt.minute,':');
if dt.second<10 then writeln('0',dt.second)else writeln(dt.second);
writeln('Файлы .exe в текущей папке');
if FindFirstFile('*.exe*',sr) then
  begin
    writeln(sr.Name);
    while FindNext(sr) do
    writeln(sr.Name);//поля дата нет, только имя и размер
  end;
  FindClose(sr);
end.

program bbs;
uses crt,graphABC;
//процедура поворота точки относительно цетра вращенмя
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
 
var x0,y0,d,ax,ay,bx,by,k:integer;
    aa,ab:real;
begin
hidecursor;
d:=150;
x0:=windowwidth div 2;
y0:=windowheight div 2;
aa:=60;ab:=120;k:=2;
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
repeat
lockdrawing;
clearwindow;
textout(x0-80,10,'Выход - любая клавиша');
Setpencolor(clRed);
line(x0,y0,ax,ay);
line(ax,ay,bx,by);
line(x0,y0,bx,by);
redraw;
delay(50);
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
aa:=aa+k;ab:=ab+k;
until keypressed;
end.