5.Faça um programa para criar um cadastro de dados bancários e a seguir escreva o nome a idade e o saldo do cliente mais novo e mais velho.

Program Pzim ;

type dodos = record
contaCorrente:integer;
agencia:integer;
banco:string;
nome:string;
idade:integer;
endereco:string;
tel:integer;
email:string;
saldoBanc:real;
end;

var
cad: array[1..3] of dodos; //1000
i:integer;

procedure cadastro;
begin
for i:=1 to 3 do
begin
writeln(' ::CADASTRO DE CLIENTE::');
writeln;
write('Conta Corrente: ');
readln(cad[i].contaCorrente);
write('Agencia: ');
read(cad[i].agencia);
write('Banco: ');
read(cad[i].banco);
write('Nome: ');
read(cad[i].nome);
write('Idade: ');
read(cad[i].idade);
write('Endereco: ');
read(cad[i].endereco);
write('Telefone: ');
read(cad[i].tel);
write('E-mail: ');
read(cad[i].email);
write('Saldo bancario: ');
read(cad[i].saldoBanc);
clrscr;
end;
end;

procedure clienteMaisVelho;
var
maior:integer;
maiorNome:string;
maiorSaldo:real;
begin
maior:=1;

for i:=1 to 3 do
begin
if (cad[i].idade > maior) then
begin
maior:=cad[i].idade;
maiorNome:=cad[i].nome;
maiorSaldo:=cad[i].saldoBanc;
end;
end;

writeln('>>Pessoa com maior idade:');
writeln('Nome: ',maiorNome);
writeln('Idade: ',maior);
writeln('Saldo bancario: ',maiorSaldo:2:2);
end;

procedure clienteMaisNovo;
var
menor:integer;
menorNome:string;
menorSaldo:real;
begin
menor:=150;

for i:=1 to 3 do
begin
if (cad[i].idade < menor) then begin menor:=cad[i].idade; menorNome:=cad[i].nome; menorSaldo:=cad[i].saldoBanc; end; end; writeln; writeln('>>Pessoa com menor idade:');
writeln('Nome: ',menorNome);
writeln('Idade: ',menor);
writeln('Saldo bancario: ',menorSaldo:2:2);
end;

Begin
cadastro;
clienteMaisVelho;
clienteMaisNovo;
End.