Program Pzim ;
var
nome, nome_mais_velha, nome_mais_nova: char;
idade, idade_mais_velha, idade_mais_nova, i: integer;
begin
for i:= 1 to 2 do
writeln('Informe a idade ', i, 'pessoa: ');
readln(nome);
writeln('Informe a idade ', i, 'ª pessoa: ');
readln(idade);
if (i = 2) then
nome_mais_velha := nome;
idade_mais_velha := idade;
nome_mais_nova := nome;
idade_mais_nova := idade;
if (idade > idade_mais_velha) then
nome_mais_velha := nome;
idade_mais_velha := idade;
if (idade < idade_mais_nova) then
nome_mais_nova := nome;
idade_mais_nova := idade;
writeln('Mais velha: ', nome_mais_velha, ' com ', idade_mais_velha, ' anos');
writeln('Mais nova: ', nome_mais_nova, ' com ', idade_mais_nova, ' anos')
end.
Cara deu certo ate ! mas o codigo ficou duplicando ! imprimindo a mesma coisa duas vezes na tela !