Fiz essa matriz mais acho que não é oq pede

Escrever um algoritmo que lê uma matriz M(10,10) e a escreve. Troque, a seguir:

a) a diagonal principal com a diagonal secundária

b) a linha 5 com a coluna 10.

Escreva a matriz assim modificada

Visual g.

algoritmo "10x10"
// Função :
// Autor :
// Data : 05/12/2014
// Seção de Declarações
var
matr:vetor[1..10,1..10] de real
matr2:vetor[1..10,1..10] de real
l,c:inteiro
inicio
PARA l de 1 ate 10 FACA
PARA c de 1 ate 10 FACA
escreval("Digite o número referente a linha",l," e coluna",c,":")
leia(matr[l,c])
matr2[l,c] <- matr[l,c]
FIMPARA
FIMPARA
escreval(" Matriz Final ")
PARA l de 1 ate 10 FACA
PARA c de 1 ate 10 FACA
escreval("| ",matr2[l,1]," | ",matr2[l,2]," | ",matr2[l,3]," | ",matr2[l,4]," | ",matr2[l,5]," | ",matr2[l,6]," | ",matr2[l,7]," | ",matr2[l,8]," | ",matr2[l,9]," | ",matr2[l,10]," | ")
FIMPARA
fimalgoritmo