Pascal/Turbo Pascal - Ayudaaaaaa!!!!!!!!

Necesito ayuda inmediata de como elaborar un algoritmo que compare dos tablas y que si en sus diferentes niveles coinciden en un mismo número ingresado y en un mismo nivel, me presente que hay una igualdad en uno de los niveles de esas tablas.
Por favor respondan, que es para algo muy importante..............
Gracias!!!!!!!!!!!

for l1=1 to Max1 do
for l2=1 to MAx2 do
for l3=1 to MAx3 do
for l4=1 to MAx4 do
if Tabla1[l1][l2][l3][l4]=Tabla2[l1][l2][l3][l4] then
writeln('Coincidencia en :',l1,', ',l2,', ',l3,', ',l4)