Ajuda com visualg Matriz e Vetor

[abreushadow 0]

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