Leonardo

Pessoal, sou nova aqui no fórum, e estou iniciando em lógica de programação. Bom estou com a seguinte questão a ser resolvida:

" Faça um programa que leia cinco grupos de quatro valores (A,B,C,D) e mostre-os na ordem lida. Em seguida, organize-os em ordem crescente e decrescente."

Eu fiz o código e vou postar aqui, fiz até a parte da ordem crescente, deu certo, só que o programa não finaliza, por que está acontecendo isso? Alguém pode me ajudar? Segue o código abaixo:

algoritmo "Exercício"

var

A, B, C, D, I, J: inteiro

inicio

escreval("Digite 4 números inteiros:")

leia(A,B,C,D)

para I de 1 ate 5 passo 1 faca

escreval("Grupo",I,"=",A,B,C,D)

fimpara

enquanto (A<B) e (A<C) e (A<D)faca

se (B<C) e (B<D) entao

se (C<D) entao

escreval("A ordem crescente dos números é:",A,B,C,D)

senao

escreval("A ordem crescente dos números é:",A,B,D,C)

fimse

fimse

se (C<B) e (C<D) entao

se (B<D) entao

escreval("A ordem crescente dos números é:",A,C,B,D)

senao

escreval("A ordem crescente dos números é:",A,C,D,B)

fimse

fimse

se (D<B) e (D<C) entao

se (B<C) entao

escreval("A ordem crescente dos números é:",A,D,B,C)

senao

escreval("A ordem crescente dos números é:",A,D,C,B)

fimse

fimse

fimenquanto

enquanto (B<A) e (B<C) e (B<D)faca

se (A<C) e (A<D) entao

se (C<D) entao

escreval("A ordem crescente dos números é:",B,A,C,D)

senao

escreval("A ordem crescente dos números é:",B,A,D,C)

fimse

fimse

se (C<A) e (C<D) entao

se (A<D) entao

escreval("A ordem crescente dos números é:",B,C,A,D)

senao

escreval("A ordem crescente dos números é:",B,C,D,A)

fimse

fimse

se (D<A) e (D<C) entao

se (A<C) entao

escreval("A ordem crescente dos números é:",B,D,A,C)

senao

escreval("A ordem crescente dos números é:",B,D,C,A)

fimse

fimse

fimenquanto

enquanto (C<A) e (C<B) e (C<D)faca

se (B<A) e (B<D) entao

se