Pascal/Turbo Pascal - Dos Arreglos

Hola amigos, llevo ratos en un programa que tiene que determinar si dos arreglos son iguales, como lo puedo hacer???

Empezando con i := 1, comparando la posición i del arreglo 1 con la posición i del arreglo 2, incrementando hasta que i sea mayor que el tamaño del arreglo (suponemos los arreglos del mismo tamaño, ¿verdad?) o hasta que arreglo1[i] sea distinto de arreglo2[i]