Problema em Visualg

[mendesjao]

Fala Galera, beleza?

Estou com um problema aqui que já me deixo louco. Tenho que resolver um problema sobre Torcedor fanatico. Tenho que descobrir qual o maior saldos dos 2 periodos. O maior eu ja descobrir, agora preciso do 2º maior.

var
k,h,n,i,j,a,b,cont,conta,MP,MP2,aux: inteiro
x,y,jogos: vetor [0..99] de inteiro
inicio
// Seção de Comandos
////////////////////////////////////// INICIO DA ENTRADA ///////////////////////////////////////////
escreval("################################################")
escreval("################...Bem Vindo...#################")
escreval("################################################")
escreval(".")
repita
   escreval(" Insira o número de partidas realizadas pela Seleção:")
   leia(n)
   se (n < 0) então
      limpatela
      escreval(" ERRO!!! Somente números entre 0 e 10000!")
   fimse
ate ( n >= 0)
se (n > 0) então
   para a de 0 ate n-1  faca
      escreval(" Insira o número de gols marcados pela Seleção no", a+1, "º jogo:")
      leia(x[a])
      escreval(" Insira o número de gols sofridos pela Seleção no", a+1, "º jogo:")
      leia(y[a])
      cont<- cont+1
   fimpara
   //isso do MP ta certo
   para a de 0 ate n-1 faca
      se (x[a]-y[a] > MP) então
         MP<-x[a] - y[a]
      fimse
      // aqui q da problema o MP2 ta recebendo o mesmo valor do MP
      se (MP2 < MP) então
         MP2<-x[a] - y[a]
      fimse
   fimpara
   //--------------------------------------------------
   para k de 0 ate 1-1 faca
      jogos[k]<- n
      conta<- conta +1
   fimpara
   limpatela
   b<- n
   repita
      escreval(" Insira o número de partidas realizadas pela Seleção:")
      leia(n)
      se (n < 0) então
         escreval(" ERRO!!! Somente números entre 0 e 10000!")
      fimse
      b<- b+n
      para a de 0 ate n-1  faca
         escreval(" Insira o número de gols marcados pela Seleção no", a+1, "º jogo:")
         leia(x[a+cont])
         escreval(" Insira o número de gols sofridos pela Seleção no", a+1, "º jogo:")
         leia(y[a+cont])
         cont<- cont+1
      fimpara
      para k de 0 ate 1-1 faca
         jogos[k+conta] <- n
         conta<- conta +1
      fimpara
      limpatela
   ate (n=0)
fimse
///// FIM DA ENTRADA
para h de 0 ate b-1 faca
   escreval(" Placar: ")
   escreval(x[h]," X",y[h])
fimpara
para h de 0 ate b-1 faca
   escreval(jogos[h])
fimpara
fimalgoritmo

[Tiago Grunge]

Olá me explica o que teu código faz estive analisando ele e não entende o que ele deve fazer!