4.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('Sald5.Faça um programa que leia nome do jogador, camisa, time e saldo de 22 jogadores. Escreva o time que contém mais jogadores na lista, o nome do jogador com salário mais alto e mais baixo

Program Pzim ;
type dados=record
nome:string;
camisa:integer;
time:char;
salario:real;
end;

var
jog:array[1..5] of dados; //22
i:integer;

procedure cadastro;
begin
for i:=1 to 5 do
begin
writeln('::CADASTRO DE JOGADORES::');
writeln;
writeln('TIMES DESPONIVEIS: A e B');
writeln(i,' - Faca o cadastro:');
writeln('_________________________');
writeln;
write('Nome: ');
read(jog[i].nome);
write('Camisa: ');
read(jog[i].camisa);
write('Time: ');
read(jog[i].time);
write('Salario: ');
read(jog[i].salario);
clrscr;
end;
end;

procedure maisJogadores;
var
TA,TB,maisJ: integer;
timeM:char;

begin
maisJ:=1;

for i:=1 to 5 do
begin
case jog[i].time of
'A': TA:=TA+1;
'B': TB:=TB+1;
end;
end;

if (TA>maisJ)then
timeM:= 'A'
else
timeM:= 'B';

writeln('>>O time com mais joadores e o time: ',timeM);
end;

procedure maiorSalario;
var
maior:real;
maiorNome:string;
begin
maior:=1;

for i:=1 to 5 do
begin
if (jog[i].salario > maior) then
begin
maior:=jog[i].salario;
maiorNome:=jog[i].nome;
end;
end;

writeln;
writeln('>>O jogador com maior salario:');
writeln('Nome: ',maiorNome);
writeln('Salario: ',maior:2:2);
end;

procedure menorSalario;
var
menor:real;
menorNome:string;
begin
menor:=999999999;

for i:=1 to 5 do
begin
if (jog[i].salario < menor) then begin menor:=jog[i].salario; menorNome:=jog[i].nome; end; end; writeln; writeln('>>O jogador com menor salario:');
writeln('Nome: ',menorNome);
writeln('Salario: ',menor:2:2);
end;


Begin
cadastro;
maisJogadores;
maiorSalario;
menorSalario;
End o bancario: ',menorSaldo:2:2);
end;

Begin
cadastro;
clienteMaisVelho;
clienteMaisNovo;
End