Ajuda com visualg Matriz e Vetor

Olá, fiz todo o algoritmo solicitado porém na hora de imprimir o resultado no vetor ele mostra apenas a ultima posição e na segunda matriz mostra só a coluna 2, alguém poderia me ajudar?

algoritmo "exercício_6_Matriz"
// Data : 04/12/2016
// Solução Proposta: Faça um algoritmo para ler uma matriz [4x4] de numeros inteiros e efetuar as seguintes operaçoes:
// - Soma dos elementos da coluna 3.
// - Soma do triangulo inferior.
// - Crie um vetor e o carregue com os 16 elementos da matriz.
// - Multiplicar os elementos da diagonal principal com os elementos da linha 2 e colocar os resultados na coluna 2 .
// - Ao final apresente a matriz carregada, a soma da coluna 3, a soma do triangulo inferior, o vetor carregado e a matriz modificada com a multiplicacao.

var
mat2, mat : vetor[1..4,1..4] de inteiro
vet : vetor[1..16] de inteiro
sc3, sti, l, c, cont : inteiro
inicio
sc3 <- 0
sti <- 0
cont <- 0
escreval(" ")
escreval(" ")
escreval(" Digite os 16 números inteiros para a matriz: ")
escreval(" ")
para l de 1 ate 4 faca
escreval(" Linha: ", l)
para c de 1 ate 4 faca
escreval(" ")
escreva(" Coluna ", c,": ")
leia(mat[l,c])
fimpara
fimpara

para l de 1 ate 4 faca
para c de 1 ate 4 faca
se(c = 3) entao
sc3 <- sc3 + mat[l,c]
fimse

se (l > c) entao
sti <- sti + mat[l,c]
fimse

se (l = c) entao
mat2[l,2] <- mat[l,c] * mat[2,c]
fimse
fimpara
fimpara

para l de 1 ate 4 faca
para c de 1 ate 4 faca
para cont de 1 ate 16 faca
vet[cont] <- mat[l,c]
cont <- cont + 1
fimpara
fimpara
fimpara

escreval(" ")
escreval(" Elementos da matriz: ")
escreval(" ")
para l de 1 ate 4 faca
escreval(" ")
para c de 1 ate 4 faca
escreva(" | ",mat[l,c]:5)
fimpara
escreval(" |")
fimpara

escreval(" ")
escreval(" ")
escreval(" Soma a coluna 3: ", sc3)
escreval(" Soma do triângulo inferior: ", sti)
escreval(" ")
escreval(" ")

para cont de 1 ate 16 faca

 escreval(cont,"ª: ", vet[cont]) //Aqui ele imprimi só a ultima posição digitada na matriz e deveria ser os 16 digitos da matriz;
 fimpara

//Aqui ele deveria imprimir toda a matriz porém com a coluna 2 modificada, e ele só imprimi a coluna 2 deixando as outras posições zeradas

escreval(" ")
escreval(" ")
escreval(" Elementos da matriz modificada: ")

escreval(" ")
para l de 1 ate 4 faca
escreval(" ")
para c de 1 ate 4 faca
escreva(" | ",mat2[l,c]:5)
fimpara
escreval(" |")
fimpara

fimalgoritmo