Peco que me ajudem a converter este código de Java para Pascal Agradeço desde já a quem se dispor a ajudar.
Aí está o enucuiado
Faça um programa que leia, Nome, idade e sexo de N pessoas. Após a leitura faça:
a) Imprima o Nome, idade e sexo das pessoas cuja idade seja maior que a idade da
primeira pessoa;
b) Imprima o Nome e idade de todas as mulheres;
c) Imprima o Nome dos homens menores de 21 anos;
import java.io.BufferedReader;
import java.io.InputStreamReader;
public class GUJ {
static BufferedReader reader =
new BufferedReader(new InputStreamReader(System.in));
public static void main(String[] args) {
String nome[] = new String[3];
Integer idade[] = new Integer[3];
String sexo[] = new String[3];
for (int i=0; i<nome.length; i++){
System.out.println("Informe o "+(i+1)+" nome:");
nome[i] = ler();
System.out.println("Informe a "+(i+1)+" idade:");
idade[i] = new Integer(ler());
System.out.println("Informe o "+(i+1)+" sexo:");
sexo[i] = ler();
}
// a) Imprima o Nome, idade e sexo das pessoas cuja idade
// seja maior que a idade da primeira pessoa.
System.out.println("\nA)");
for (int i=0; i<nome.length; i++){
if (idade[i].intValue() > idade[0].intValue()) {
System.out.println("Nome: " + nome[i]);
System.out.println("Idade: " + idade[i]);
System.out.println("Sexo: " + sexo[i]);
}
}
// b) Imprima o Nome e idade de todas as mulheres.
System.out.println("\nB)");
for (int i=0; i<nome.length; i++){
if (sexo[i].equalsIgnoreCase("F")) {
System.out.println("Nome: " + nome[i]);
System.out.println("Idade: " + idade[i]);
}
}
// Imprima o Nome dos homens menores de 21 anos
System.out.println("\nC)");
for (int i=0; i<nome.length; i++){
if ((sexo[i].equalsIgnoreCase("M"))
&& (idade[i].intValue() > 21)) {
System.out.println("Nome: " + nome[i]);
}
}
}
public static String ler() {
String entrada = "";
try {
entrada = reader.readLine();
} catch (Exception e) {
System.out.println("Erro ao ler entrada do usuario.");
}
return entrada;
}
}