Data e Hora em pascal

Program DataHora;

Uses
Crt, Dos; {A unit DOS contem os comandos de data e hora}

Var
Dia, Mes, Ano, Dia_Semana, Hora, Minuto, Segundo, Dec_Segundo : Word;
{O tipo das variáveis deve ser WORD pois até agora não vi data negativa...}

Begin
GetDate(Ano, Mes, Dia, Dia_Semana);
GetTime(Hora, Minuto, Segundo, Dec_Segundo);
Writeln('Sao ', Hora, 'h', Minuto, 'm', Segundo, 's'); {Escreve a hora}
Writeln(Dia, ' de ', Mes, ' de ', Ano); {Escreve a data}
Readln;
End.


mexi um pouco no código

Procedure alu_imprimir;
var num : integer;
Ano, Mes, Dia: Word; <-------
Begin
reset(alugueres);

{Writeln('Qual é o registo que deseja imprimir?');
read(num);
seek(alugueres, num-1);}

Assign(aluguer_output, 'Aluguer.txt');
rewrite(aluguer_output);

----> GetDate(Ano, Mes, Dia);


While not EOF (alugueres) do
Begin
read(alugueres, aluguerr);
with (aluguerr) do
begin
writeln(aluguer_output,'|_________________________|');
Writeln(aluguer_output,'| |');
Writeln(aluguer_output,'| | Datsikk Store | |');
Writeln(aluguer_output,'| |');
Writeln(aluguer_output,'|-------------------------|');
Writeln(aluguer_output,'| LOJA |');
Writeln(aluguer_output,'|-------------------------|');
Writeln(aluguer_output,'| Nome : DatSikk |');
Writeln(aluguer_output,'| Morada : Rua do Som |');
Writeln(aluguer_output,'| Localidade : Estarreja |');
writeln(aluguer_output,'|+++++++++++++++++++++++++|');
writeln(aluguer_output,'|+++++++++++++++++++++++++|');
writeln(aluguer_output,'| Nome Cliente: ', nomecli);
writeln(aluguer_output,'| Nome CD: ', nomecd);
writeln(aluguer_output,'| Data do aluguer: ', dataini);
writeln(aluguer_output,'| Data da Devolução: ', datafim);
writeln(aluguer_output,'|--------------------------|');
---> Writeln(aluguer_output, Dia, '/', Mes, '/', Ano, '/');
readln;
writeln(aluguer_output,'|--------------------------|');
Writeln(aluguer_output);
Writeln(aluguer_output);
Writeln(aluguer_output);
end;
end;
close(alugueres);
close(aluguer_output);
clrscr;
end;

NESTE CASO O GETDATE NAO DÁ , SERA POR ESTAR NUM PROCEDURE?