Alguien podria corregir esto?????????

miyako_89
20 de Diciembre del 2009
Hola me gustaria que alguien mirase esto y me dijera si es correcto o no, os lo agradeceria:



FUNCTION equitativo (n:Tnumero):boolean;
VAR
i, j, contador1, contador2:integer;
salida:boolean;

BEGIN
contador1 := 0;
contador2 := 0;
salida := FALSE;
FOR i := 1 TO (FIN-1) DO BEGIN

IF ((n[i] >= 0) AND (n[i+1] >= 0)) OR ((n[i]<0) AND (n[i+1]<0)) THEN {las parejas de pos-pos y neg-neg}
contador1 := contador1 + 1;

IF ((n[i] >= 0) AND (n[i+1] <0)) OR ((n[i]<0) AND (n[i+1]>=0)) THEN {para las parerjas de pos-neg y neg-pos}
contador2 := contador2 + 1;

END;
IF (contador1 = contador2) THEN BEGIN
salida := TRUE;
writeln ('El Array es equitativo.');
END
ELSE
writeln ('El Array no es equitativo.');
END;