LP - Comando de decisão IF - Pascal

Program P_Decisao;
var   nome:string;
idade:integer;
 Begin
      write('Digite seu nome...: ');
      read(nome);
      write('Digite sua idade..: ');
      read(idade);
      if idade >= 18 then
      write('Entrada permitida para você ',nome);
      if idade < 18 then
      write('Entrada negada para você ',nome);
 End.