sds

PROCEDURE MoverIzquierdaFila(VAR fila : TipoFila);
VAR j: integer;

	PROCEDURE DesplazarSinFusion(VAR fila : TipoFila);
	VAR j,k: integer;

	Begin
		j:=1;
		while (j < MAXTablero) do
		begin
			k:=1;
			if (fila[j] = 0) then
			begin
				while (fila[j+k] <> 0) and (j+k < MAXTablero) do
				begin
					fila[j]:=fila[j+k];
					fila[j+k]:=0;
					k:=k+1;
				end;
			end
			else if (fila[j+k] = 0) and (j+k < MAXTablero) then
			begin
				k:=k+1;
			end;
		end;
		j:=j+1;
	End;

BEGIN
	DesplazarSinFusion(fila);
	j:=1;
	while (j+1 <= MAXTablero) and (fila[j] <> 0) do
	Begin
		if (fila[j] = fila[j+1]) then
		begin
			fila[j]:= fila[j] + fila[j+1];
			fila[j+1]:=0;
			j:=j+2;
		End
		else
			j:=j+1;
	End;
	DesplazarSinFusion(fila);
END;