Algoritmo – 50 funcionário e seus salários

A função do algoritmo abaixo é obter o Nome, Valor Hora, Total de Horas Trabalhadas e a idade de 50 funcionários e no final exibira a média salarial bruta da empresa, o nome e a idade do funcionário mais velho e o nome e o salário do funcionário que tiver a maior renda.
 

Algoritmo "Salários"
// Função : Obter salário bruto, idade do 

// funcionario mais velho e salário mais alto
// Autor : Alexandre Ernesto
// Data : 03/12/2011
// Seção de Declaraçõe
Var
  Ind: inteiro
  nome:caractere
  idade: inteiro
  ht: inteiro
  VlHora, somasalario, salariobruto:real
  Nomevelho: caractere    // irá armazenar o nome do funcionário mais velho
  Idadevelho: inteiro        // idade do funcionário mais velho
  NomeMaiorSal: caractere  // nome do funcionário com o maior salário
  MaiorSal: real                  // maior salário
 
inicio
  Nomevelho <- ""
  Idadevelho <- 0
  NomeMaiorSal <- ""
  MaiorSal <- 0
  para ind de 1 ate 5 passo 1 faca
     escreval ("Registro ", ind)
     escreval ("------------------------------------")
     escreval ("Nome de funcionario: ")
     leia (nome)
     escreval ("Idade: ")
     leia (idade)
     escreval ("Horas Trabalhadas: ")
     leia (ht)
     escreval ("Valor da hora trabalhada: ")
     leia (VlHora)
     escreval ("------------------------------------")
     limpatela
 
     se idade > Idadevelho entao
        Idadevelho <- idade
        Nomevelho <- nome
     Fimse
 
     salariobruto <- ht * VlHora
     somasalario <- somasalario + salariobruto
 
     se salariobruto > MaiorSal entao
        NomeMaiorSal <- nome
        MaiorSal <- salariobruto
     Fimse
 
   fimpara
 
   escreval("Média salarial bruta da empresa : ",somasalario / 50)
   escreval("Funcionário mais velho: ",Nomevelho,", ",Idadevelho," Anos" )
   escreval("Funcionário com maior renda : ",NomeMaiorSal,", ", MaiorSal)
   escreval("-----------------------------------------------------------")
fimalgoritmo