Pascal/Turbo Pascal - :S error

Perdonar alguien me puede decir que falla o que es necesario en esta estructura para que funcione:
VAR
Cvacio,vacio,i,j,x,y,y2:integer;
BEGIN
FOR i:=2 TO 9 DO
FOR j:=2 DOWNTO 9 DO
BEGIN

y:=-1;
REPEAT
inc(y);
IF matrizz[i,j-y].colr <> matrizz[i,j].colr THEN x:=1;
UNTIL x=1;

y2:=-1;
REPEAT
inc(y2);
IF matrizz[i,j+y].colr <> matrizz[i,j].colr THEN y:=1;
UNTIL y=1;

Gracias por la contestacion y las molestias ;-)

He lo modificado lo anterior pero con poco exito. Este lo he planteado desde otro punto de vista pero la continuacion es la que me da problema ahora.
Si alguien pudiera molestarse en contestar se lo agradeceria.Gracias de todas formas por leerlo no pierdo la esperanza de que alguien me pueda contestar.

Lo que quiero conseguir es que cuando la matriz tenga varios elementos iguales consecutivos los elimine y bajen los superiores creando en ellos elementos aleatorios si ay casillas superiores pero lo unico que ocurre es que la casilla inferior cambie aleatoreamente.

VAR
Cvacio,vacio,i,j,x,y,y2:integer;
BEGIN

FOR j:=9 DOWNTO 2 DO
FOR i:=9 DOWNTO 2 DO
BEGIN
x:=0;
y:=0;
REPEAT
inc(y);
IF (matrizz[i-y,j].colr <> matrizz[i,j].colr) THEN x:=1;
UNTIL x=1;

IF y>=3 THEN
BEGIN
Cvacio:= i-y;
FOR vacio:=i DOWNTO (i-y) DO
BEGIN
IF Cvacio>=0 THEN
BEGIN
matrizz[i,j].colr := matrizz[cvacio,j].colr;
matrizz[Cvacio,j].colr := colores[random(6)+1];
END ELSE matrizz[i,j].colr := colores[random(6)+1];
READLN;
END;
END;
END;
END;