Program A03_Ex7;
Var
  Nome: String;
  Sexo: Char;
  Idade: Byte;
  Nacionalidade: String[15];
  Flag_Erro: Boolean;
Begin
  write('Nome: ');
  readln(Nome);
  write('Sexo: ');
  readln(Sexo);
  write('Idade: ');
  readln(Idade);
  write('Nacionalidade: ');
  readln(Nacionalidade);

  Flag_erro:=False;
  if (Sexo <> 'M') and (Sexo <> 'm') and (Sexo <> 'F') and (Sexo <> 'f')
  then begin
         writeln ('>> Erro: Sexo incorreto - ',Sexo);
         Flag_Erro:=True;
       end;

  if (Idade < 0) or (Idade > 150)
  then begin
         writeln ('>> Erro: Idade incorreta - ',Idade);
         Flag_Erro:=True;
       end;

  if (Nacionalidade <> 'brasileira') and (Nacionalidade <> 'estrangeira') and
     (Nacionalidade <> 'Brasileira') and (Nacionalidade <> 'Estrangeira')
  then begin
         writeln('>> Erro: Nacionalidade incorreta - ',Nacionalidade);
         Flag_Erro:=True;
       end;

  if not Flag_Erro
  then begin
         write(Nome,', ');
         if (Nacionalidade = 'brasileira') or (Nacionalidade = 'Brasileira')
         then write('brasileir')
         else write('estrangeir');
         if (Sexo = 'M') or (Sexo = 'm')
         then write('o do sexo masculino e ')
         else write('a do sexo feminino e ');
         if (Idade >= 18)
         then write('maior de idade, est  habilitad')
         else write('menor de idade, nĈo est  habilitad');
         if (Sexo = 'M') or (Sexo = 'm')
         then write('o a dirigir.')
         else write('a a dirigir.');
       end;

  writeln;
  readln;
end.