Exercício de matriz em Pascal

To numa duvida enorme aqui, preciso resolver esse exercicio mas ta faltando uma coisa pra terminar e já nem sei como faço isso.

O exercicio:

Os dados de uma pesquisa foram coletados gerando 49 valores numéricos diferentes.O pesquisador organizou estes dados em linhas e colunas sob forma de uma matriz quadrada.Elabore um programa em pascal para ler a matriz de dados por coluna, calcular e exibir a soma dos valores dos elementos da matriz cujo o produto de seus índices seja múltiplo de 3.

Ou seja, preciso fazer um programa de matriz 7x7 que aceite 49 valores diferentes, quando o usuario digitar valores iguais deve aparecer uma mensagem.. e depois exibir a soma dos valores cujo o produto do seus indices (1x1, 1x2..) seja multiplo de 3..

Nao to conseguindo colocar a condição de caso ele digitar valores iguais aparecer a mensagem, como faço isso?

Meu código por enquanto ta assim mas já mudei várias vezes:

Program matriz ;
 var i,j, soma:integer;
 M:array [1..7,1..7] of integer;

 begin
 for i:=1 to 7 do
 for j:=1 to 7 do
 begin
 Writeln('Entre com o valor M[',i,',',j,'] :');
 readln(M[i,j]);
 if (i*j mod 3 = 0)then
 begin
 soma:=(M[i,j])+ soma;
 end;
 end;
 writeln('o valor da soma é: ',soma);
 End.