prod = recordcodMerc: integer;descricao:string;dataCadastro:integer;ultimaSaida:integer;saldoEstoque:integer;end;varcont,m,c:integer;cadastro: array[1..1000] of prod;Beginm:=0;for cont:=1 to 2 dobeginwriteln('Codigo da mercadoria:');readln(cadastro[cont].codMerc);writeln('Descricao:');readln(cadastro[cont].descricao);writeln('Data de Cadastro:');readln(cadastro[cont].dataCadastro);writeln('Ultima saida:');readln(cadastro[cont].ultimaSaida);writeln('Saldo em estoque:');readln(cadastro[cont].saldoEstoque);writeln(' ----- ');end;clrscr;writeln('TODOS OS PRODUTOS');for cont:=1 to 2 dobeginwriteln('Codigo da mercadoria: ',cadastro[cont].codMerc);writeln('Descricao: ',cadastro[cont].descricao);writeln('Data de Cadastro: ',cadastro[cont].dataCadastro);writeln('Ultima saida: ',cadastro[cont].ultimaSaida);writeln('Saldo em estoque: ',cadastro[cont].saldoEstoque);writeln(' ----- ');end;4.Faca um programa para criar um cadastro de dados bancarios e a seguir escreva o nome a idade e o saldo do cliente mais novo e mais velho.Obs.: O programa deve ser feito para cadastrar 10000 clientes. Os dados dos clientes a serem cadastrados sao: Conta corrente, agencia, banco, nome, endereco, telefone, e-mail, idade e saldo bancario.Program Pzim ;type dodos = recordcontaCorrente:integer;agencia:integer;banco:string;nome:string;idade:integer;endereco:string;tel:integer;email:string;saldoBanc:real;end;varcad: array[1..3] of dodos; //1000i:integer;procedure cadastro;beginfor i:=1 to 3 dobeginwriteln(' ::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;varmaior:integer;maiorNome:string;maiorSaldo:real;beginmaior:=1;for i:=1 to 3 dobeginif (cad[i].idade > maior) thenbeginmaior:=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;varmenor:integer;menorNome:string;menorSaldo:real;beginmenor:=150;for i:=1 to 3 dobeginif (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.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 dobeginif (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 dobeginif (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 o bancario: ',menorSaldo:2:2);end;Begincadastro;clienteMaisVelho;clienteMaisNovo;End