[Resolvido] inverter vetor

pessoal tenho q fazer um algoritmo que construa uma matriz 50 x 30 e depois de construída inverter suas linhas. Exemplo: a

última linha será a primeira e a primeira a última. A antepenúltima será a segunda e a segunda será antepenúltima

e assim por diante.

e a ideia q tive foi essa, mas sei q esta totalmente diferente de exemplo achado aqui no forum mesmo pois esta em pascal

mais o meu ñ acho q esteja de tudo errado

var
matriz: vetor [1..5,1..3] de inteiro
contl, contc, aux: inteiro
inicio
contl:= 1
para contl de 1 ate 5 faca
contc:= 1
para contc de 1 ate 3 faca
leia(matriz [contl,contc])
contc:= contc + 1
fimpara
contl:= contl + 1
fimpara
aux:= 1
contl:= 5
contc:= 3
para aux de 1 ate 5 faca
escreva (matriz [contl, contc])
contl:= contl - 1
aux:= aux + 1
fimpara
fimalgoritmo
gostaria de saber se esta certo e se tiver errado onde esta o errado e uma dica de como concertar