Armazenar informações no vetor

[Luiz Phelipe Steinbach 0]

Olá gente, estou com um probleminha em um algoritmo, não consigo termina-lo, pois essa linguagem pra mim é nova, e fico meio confuso, alguem poderia me dar uma luz ?

 

A questão é essa,

 

Faça um algoritmo para realizar 100 leituras armazenando-as em um vetor. A cada leitura o usuário irá digitar o nome de um cliente e o seu saldo atual. Considere que o nome de um mesmo cliente poderá ser digitado várias vezes durante as 100 leituras. De qualquer forma cada nome, repetido ou não, deverá ser armazenado dentro do vetor. Após a leitura você realizar as seguintes operações: (3 pontos)

 

a) Ordenar o vetor crescentemente pelo nome do cliente.

 

B) Ler o nome de um cliente e verificar se este nome existe ou não dentro do vetor. Caso exista deverá ser mostrado na tela o somatório de todos os saldos deste cliente. Lembre-se que o nome do cliente poderá aparecer repetidas vezes dentro do vetor. Caso o nome não exista uma mensagem sobre este fato deverá ser mostrada na tela.

 

 

 

Fiz apenas com números menores pra ser mais rápido o teste.

Program Questao;type TSaldo = record  nomeDoCliente: string;  saldo: real;end;varcliesaldo: array [1..3] of TSaldo;i, aux: integer;temp: string;busca: string;Begin                                   for i:=1 to 3 dobeginwrite ('Digite o nome do Cliente:');read (cliesaldo[i].nomeDoCliente);write ('Digite o saldo do Cliente:');read (cliesaldo[i].saldo);end;for i:=1 to 3 dobeginfor aux:=1 to 2 dobeginif cliesaldo[aux].nomeDoCliente > cliesaldo[aux+1].nomeDoCliente thenbegintemp:= cliesaldo[aux].nomeDoCliente;cliesaldo[aux].nomeDoCliente:= cliesaldo[aux+1].nomeDoCliente;cliesaldo[aux+1].nomeDoCliente:= temp;end;end;end;for i:=1 to 3 do beginwriteln ('');writeln ('Nome em ordem : ',cliesaldo[i].nomeDoCliente);end;                      begin                         write ('Digite o nome que deseja buscar:');read (busca);beginif busca = cliesaldo[i].nomeDoCliente then  write ('Olá')  else  write ('Cai fora');end;end; End. 

begin                         write ('Digite o nome que deseja buscar:');read (busca);beginif busca = cliesaldo[i].nomeDoCliente then  write ('Olá')  else  write ('Cai fora');end;end; 

Isto fiz só pra testar a busca, mas não consegui :(

[KhaosDoctor 242]

A segunda tarefa é mais fácil do que a primeira, qual é o problema que você está tendo nesse exercício?