pro-Gramas tu biblioteca de programacion

El siguiente programita nos enseña como obtener la hora del sistema por medio de pascal.

program hora_y_fecha;
uses
    crt,dos;
var
   o,m,s,c,a,me,d,ds:word;
begin
     clrscr;
     gettime(o,m,s,c);      {obtiene la hora}
     getdate(a,me,d,ds);   {obtiene la fecha}
     gotoxy(20,3);
     write('----------------------------------------');
     gotoxy(20,4);
     writeln('-La hora del sistema es: ',o, ': ',m,': ',s,': ',c,'-');
     gotoxy(20,5);
     writeln('-Y la fecha del sistema es: ',d,': ',me,': ',a,'-');
     gotoxy(20,6);
     write('----------------------------------------');
     readln;
end.