Una aclaración Lupe, el procedimiento GetDate usa 4 parámetros y no 3 como dijeron anteriormente, utilizas GetDate(Anio, Mes,Dia,Día De la semana) en dia de la semana empieza a contar de 0 a 6, siendo 0 domingo y 6 sabado, y las variables las declaras vos misma para luego pasarselas al procedimiento GetDate y almacenar por separado los diferentes valores( si queres juntarlo todo en uno podes usar la formulita que te pase antes y te va a quedar un número de formato AAAAMMDD o como quieras hacerlo) . Te dejo un ejemplo de la utilización del procedimiento GetDate:
program fecha_y_hora;
uses crt,dos;
var
anio,mes,dia,diasemana,
hora,minuto,segundo,centesima:word;
dias:string;
begin
clrscr;
gettime(hora,minuto,segundo,centesima);
getdate(anio,mes,dia,diasemana);
writeln('la hora actual es: ', hora,':',minuto,':',segundo,':', centesima);
case diasemana of
0:dias:=Domingo;
1:dias:=Lunes;
2:dias:=Martes;
3:dias:=Miercoles;
4:dias:=Jueves;
5:dias:=Viernes;
6:dias:=Sabado;
end;
writeln('Hoy es ',dias,' ',dia,'/',mes,'/',anio);
readkey;
end.