Pascal/Turbo Pascal - Matrices simetricas

Me gustaria saber como hacer un programa que lea una matriz cuadrada de dimensión fija(4x4) y determine si es simetrica con respecto a sus dos diagonales,su código.
Muchas gracias.

quizá te pueda ayudar si me explicas bien lo de simétricas a sus dos diagonales

Pues si es de dimención fija es sumamente sencillo
if (M(1,4)=M(4,1)) and (M(1,3)=M(3,1)) and (M(1,2)=M(2,1)) and ...
no será elegante pero funciona.