[PASCAL] Dados pessoais

program dadosPessoais;

var
    nome:string;
    idade:integer;
    sexo:string;

begin
    write('Digite o seu nome.');
    readln(nome);
    write('Digite o seu sexo.');
    readln(sexo);
    write('Digite a sua idade.');
    readln(idade);
    if ( idade >= 18 ) then
        begin
            write('OK ',nome,' você é do sexo ',sexo', e é maior de idade ( ',idade);
        end;
    else
        begin
            write('Você é menor de idade.');
        end;
    readln;
end.