Pascalban 10X10-es mátrixban a főátló elemeit és külön a mellékátló elemeit hogy lehet összeadni?

tomb[0, 0] bal felső sarok. tomb[1, 1] a főátló következő eleme....

tomb[0, 9], jobb felső sarok, tomb[1, 8] a mellékátló következő eleme....

var i : byte;

foatlo, melatlo : integer;

....

for i := 0 to 9 do foatlo := foatlo + tomb[i, i];

....

for i := 9 downto 0 do melatlo := melatlo + tomb[9-i, i];

....

foatlo := tomb[0, 0]+tomb[1, 1]+tomb[2, 2]+tomb[3, 3]+tomb[4, 4]+tomb[5, 5]+tomb[6, 6]+tomb[7, 7]+tomb[8, 8]+tomb[9, 9];

mellekaltlo := tomb[0, 9]+tomb[1, 8]+tomb[2, 7]+tomb[3, 6]+tomb[4, 5]+tomb[5, 4]+tomb[6, 3]+tomb[7, 2]+tomb[8, 1]+tomb[9, 0];