Vinícius Proença

Gostaria da opinião sobre a minha resolução do algoritmo abaixo... Tô no caminho ou nem?

para descomplicar: 

vlr=valor

vlr_i=valor do investimento

vlr_pp=poupança

vlr_rf= fundos de renda

vlr_cd=CDBs

Program Pzim ;
//3. Uma agência bancária possui vários tipos de investimentos com rendimentos mensais, conforme a tabela
//abaixo:
//Valor Mínimo Descrição Rentabilidade Mensal
//R$ 100,00 Poupança 0,5%
//R$ 1000,00 Fundos de Renda Fixa 1%
//$ 2500,00 CDBs 1,5%
//Faça um programa que leia o valor que o cliente deseja investir e calcule e exiba os tipos de aplicação que ele
//pode fazer e qual será sua rentabilidade (lucro) em cada uma delas (se for mais de uma). O programa termina
//quando for digitado um valor de investimento negativo.
var
vlr_i,opc,vlr_pp,vlr_rf,vlr_cd,resp:real;
Begin
 Writeln('======================== LISTA DE INVESTIMENTOS ============================');
Writeln();
Writeln('    VALOR MÍNIMO             DESCRIÇÃO                  RENTABILIDADE MENSAL ');
Writeln();
Writeln('       R$100,00                  POUPANÇA              0,5%  ');
Writeln('       R$1000,00                 RENDA FIXA            1%  ');
Writeln('       R$2500,00                 CDBs                  1,5%  ');
Writeln();
Writeln('============================================================================= ');
repeat
    repeat
     Writeln('Digite o Valor prentendido a investir: ');
     readln(vlr_i);
     if (vlr_i>0) then begin
     Writeln('Selecione uma das 3 opções acima: ');
     readln(opc); 
		   
        if opc=1
       then begin
        vlr_pp:=(vlr_i*5/1000);
        writeln('O redimento mensal esperado nessa operação será de: ',vlr_pp,' reais');
       end;
   
      if opc=2
       then begin
        vlr_rf:=(vlr_i*1/100);
        Writeln('O redimento mensal esperado nessa operação será de: ',vlr_rf,' reais');
      end;
   
      if opc=3
       then begin
        vlr_cd:=(vlr_i*15/1000);
        Writeln('O redimento mensal esperado nessa operação será de: ',vlr_cd,' reais');
       end;
     
     end;
    until (vlr_i<=0);
    writeln('Tecle 1 para fazer outra operação ou 0 para finalizar.');
     readln(resp);
   until (resp=0);
	 
  
End.

Bom dia, esse é o meu primeiro tópico aqui e eu gostaria de pedir desculpas pela inconveniência de tomar o tempo de vocês com erros tão toscos quanto os que cometi nesse algoritmo. Acabei de começar a disciplina de algoritmos na faculdade e já estou tendo muitos problemas com a lógica envolvendo as estruturas de repetição aninhadas e eu gostaria que me ajudassem em particular com esse algoritmo que deixarei abaixo... Estou nele a 3 dias e já não sei o que fazer, TUDO dá errado e eu já estou me achando a pessoa mais ***** da face da terra... Eu não quero que resolvam para mim, eu apenas quero entende-lo e aprender a fazer do meu próprio jeito. Desde já agradeço.

Program Pzim ;

//2. Um total de 500 alunos de uma universidade foram entrevistados. De cada um deles foram colhidas as
//seguintes informações: o código do curso que freqüenta (1-engenharia; 2-computação; 3-administração) e
//a idade. Faça um programa que processe estes dados e que forneça as seguintes informações:
//a) número de alunos por curso;
//a) número de alunos com idade entre 20 e 25 anos, por curso; e
//a) qual o curso com menor média de idade.


Var
  cda,ida,ae,ac,aa,aen,idan,acn,aan,na : real;
  resp : string;
Begin
 Repeat
  ae:=0;
  ac:=0;
  aa:=0;
   Repeat
   write('digite o número do aluno');
   readln(na);
   Write('Tecle 1 para engenharia, 2 para computação, 3 para administração e 0 para parar ');
     Readln(cda);
   Write('Digite a idade do aluno');
   readln(ida);
     if cda=1
           then begin
              ae := ae + 1;
              if (ida > 20) and (ida < 25)then 
                begin 
                aen:=aen+1;
                idan:=ida;
                end;
                
                
                
                
       if (cda =2)then 
         begin
               ac := ac + 1;
               if (ida >20 and ida <25)then 
                  begin 
                   acn:=acn+1;
                   idan:=ida;
                end;
                  
         end;
                
                    
                
            if (cda = 3) then 
                 begin
                aa := aa + 1;
                if (ida >20 and ida <25 )then 
                   begin 
                    aan:=aan+1;
                    idan:=ida;
                   end;
                
                end;
                
        Until cda = 0;
         Writeln('há mais algum estudante a ser considerado?:');
         Until resp = 'n';
     Writeln('O número de estudantes que cursam engenharia é:'ae, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan );
     Writeln('O número de estudantes que cursam computação é:'ac, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan );
     Writeln('O número de estudantes que cursam administração é:'aa, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan );
 Readkey;  
End.