Sono riuscito a giungere a questa soluzione, voi che ne dite?
PROCEDURE CONFRONTA (VAR A,B: VETTORE; N,A1,A2,A3:INTEGER);
VAR
I,AN,J: INTEGER;
BEGIN
I:=1;
AN:=A3+2*A2+A1;
A1:=A2;
A2:=A3;
A3:=AN;
WHILE (A[N]>AN) DO
BEGIN
WHILE (A[i]>AN) DO
BEGIN
AN:=A3+2*A2+A1;
A1:=A2;
A2:=A3;
A3:=AN;
IF A[i]=AN THEN B[i]:=0
ELSE
IF (ABS(AN-A[i])<ABS(A[i]-A2)) THEN B[i]:=ABS(AN-A[i])
ELSE B[i]:=ABS(A[i]-A2);
I:=I+1;
END;
END;
END;