Pascal/Turbo Pascal - Utilizacion de GetDate y GetTime

Buenos días, mi duda es muy concreta, yo quiero asignar la hora y la fecha de mi sistema a dos variables, para lo cual dispongo en TurboPascal de dos procedimientos en la unidad Dos que los puedo llamar. Mi duda es que no se utilizarlos. ¿Alguien me podría mostrar un ejemplo sencillo de como asignarle a dos variables la hora y fecha que tenga en ese momento el sistema? Muchas gracias.

program tiempo;
uses dos;
type TFecha = record
dia,mes,anio:word;
{la variable word almacena un número en doble dígito, ej: 00, 07, 28...}
THora = record
hr,min,seg:word
var d,m,a,ds: word;
{al usar getdate deberás utilizar 4 variables: dia, mes, año, dia de la semana}
h,mn,s,c: word; {para gettime hora, minutos, segundos, centesimas}
fecha: TFecha;
hora: THora;
begin
with fecha do
getdate(d,m,a,ds);
{Aunque una de las variables como el dia de la semana o el año no los necesites debes ponerlos en getdate!!}
{Por ejemplo para mostrar la fecha por pantalla:}
writeln(fecha.dia, '/', fecha.mes,'/', fecha.anio);
end.


Bueno y para gettime es lo mismo, espero haberte ayudado ciao

ssssss