Calculadora de Idade

Program Idade;

var diaa, mesa, anoa, dia, mes, ano, idade: integer;
nome: string; // Data de nascimento do usuário
Begin

    writeln('Calculadora de idade..');
    write('Qual o seu nome ? ');
    read(nome);
    writeln('Preencha os dados abaixo com a sua data de nascimento');
    delay(1000);
    // Usuário Informa o Dia
    write('Dia: ');
    read(dia);
    while (dia < 1) or (dia > 31) do
    Begin
        writeln('O dia informado é inválido !');
        delay(300);
        writeln('Informe um dia do mês válido: ');
        read (dia);
    End;
    // Usuário Informa o Mês
    write('Mês: ');
    read(mes);
    while (mes < 1) or (mes > 12) do
    Begin
        writeln('O mes informado é inválido !');
        delay(300);
        writeln('Informe um mês do ano válido: ');
        read (mes);
    End;
    // Usuário Informa o Ano.
    write('Ano: ');
    read(ano);
    while (ano < 1) or (ano > 2012) do
    Begin
        writeln('O ano informado é inválido !');
        delay(300);
        writeln('Informe um ano válido: ');
        read (ano)
    End;
    delay(3000);
    writeln('Preencha os dados abaixo com a DATA ATUAL !!');
    delay(1000);
    // Usuário Informa o Dia Atual
    write('Dia: ');
    read(diaa);
    while (diaa < 1) or (diaa > 31) do
    Begin
        writeln('O dia informado é inválido !');
        delay(300);
        writeln('Informe um dia do mês válido: ');
        read (diaa);
    End;
    // Usuário Informa o Mês Atual
    write('Mês: ');
    read(mesa);
    while (mesa < 1) or (mesa > 12) do
    Begin
        writeln('O mes informado é inválido !');
        delay(300);
        writeln('Informe um mês do ano válido: ');
        read (mesa);
    End;
    // Usuário Informa o Ano Atual
    write('Ano: ');
    read(anoa);
    while (anoa < 1) or (anoa > 2012) do
    Begin
        writeln('O ano informado é inválido !');
        delay(300);
        writeln('Informe um ano válido: ');
        read (anoa)
    End;
    writeln(' ');
    writeln('INFORMAÇÕES:');
    writeln('Você nasceu em: ',dia,'/',mes,'/', ano);
    idade:= anoa - ano;
    if mes > mesa then idade:= idade -1;
    if mes = mesa then;
    if dia > diaa then idade:= idade -1;
    writeln('Você tem ', idade,' anos de idade ', nome);
    writeln(' ');
    delay(1000);
    if(idade>=18) then
    begin
        writeln('Você ja é maior de idade e pode fazer sexo, usar drogas e ouvir Rock n Roll !!');
        delay(2000);
    end
    else begin
        writeln('Você é menor de idade, deite-se e tome o seu Todynho !');
        delay(2000);
    end;
    writeln('Fim da calculadora de idade, aperte [ENTER] para sair');
End.