com maior idade:');writeln('Nome: ',maiorNome);writeln('Idade: ',maior);writeln('Saldo bancario: ',maiorSaldo:2:2); end;procedure clienteMaisNovo;varmenor:integer;menorNome:string;menorSaldo:real;beginmenor:=150;for i:=1 to 3 dobegin 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;Begincadastro;clienteMaisVelho;clienteMaisNovo;End.6.Faca um programa que leia nome do jogador, camisa, time e saldo de 22 jogadores. Escreva o time que contem mais jogadores na lista, o nome do jogador com salario mais alto e mais baixoProgram Pzim ;type dados=recordnome:string;camisa:integer;time:char;salario:real;end; varjog:array[1..5] of dados; //22i:integer;procedure cadastro;beginfor i:=1 to 5 dobeginwriteln('::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;varTA,TB,maisJ: integer;timeM:char;beginmaisJ:=1;for i:=1 to 5 dobegincase jog[i].time of'A': TA:=TA+1;'B': TB:=TB+1;end;end;if (TA>maisJ)thentimeM:= 'A'elsetimeM:= 'B'; writeln('>>O time com mais joadores e o time: ',timeM); end;procedure maiorSalario;varmaior:real;maiorNome:string;beginmaior:=1;for i:=1 to 5 dobegin if (jog[i].salario > maior) thenbeginmaior:=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;varmenor:real;menorNome:string;beginmenor:=999999999;for i:=1 to 5 dobegin 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;Begincadastro;maisJogadores;maiorSalario;menorSalario;End.7.Faca um programa que leia nome, turma, matricula, sexo, e as tres notas de um aluno e a seguir escreva a media de cada aluno, a maior e a menor nota daturma. Program Pzim ;type dados=recordnome:string;turma:string;matricula:integer;sexo:char;nota: array[1..3] of real;end;varaluno:array[1..4] of dados;i,j:integer;media:array[1..4] of real;procedure informaDados;beginfor i:=1 to 4 dobeginwriteln('::DADOS DOS ALUNOS::');WRITELN;write('Nome:');read(aluno[i].nome);write('Turma:');read(aluno[i].turma);write('Matricula:');read(aluno[i].matricula);write('Sexo:');read(aluno[i].sexo);for j:=1 to 3 dobeginwrite('Nota ',j,'= ');read(aluno[i].nota[j]);end;clrscr; end;end; procedure funcaoMadia;varsoma:real;beginfor i:=1 to 4 dobeginsoma:=0;for j:=1 to 3 dobeginsoma:= soma + aluno[i].nota[j];end;media[i]:=soma/3;writeln('A media do(a) aluno(a) ',aluno[i].nome,' e: ',media[i]:2:2);end;end;procedure maiorNota;varmaiorNota:real; beginmaiorNota:=1;for i:=1 to 4 doif (media[i] > maiorNota) thenmaiorNota:=media[i];writeln;writeln(' ---------------------------------------------');writeln;writeln('>>A maior media da turma e: ',maiorNota:2:2);end; procedure menorNota;varmenorNota:real;beginmenorNota:=1200;for i:=1 to 4 doif (media[i] < menorNota) then menorNota:=media[i]; writeln; writeln('>>A menor media da turma e: ',menorNota:2:2);end; BegininformaDados;funcaoMadia;maiorNota;menorNota;End.