Combine Export and Local variables?

[Amer7]

I have figured how to combine, It all works until the calculation between local and global variable.

Code:


//PROGRAM START
EXPORT N1,U1,Q1,D1,V1,V2,K1,K2;
EXPORT K3,F1,S0,X1,C1,C2,C3,Q3;
EXPORT Q2,Q4;


EXPORT function1 ()
BEGIN
LOCAL w1,w2;
INPUT({w1,w2},"Prekobrojnost", {"Unesi prekobrojnost u","Unesi srednju vrijednost xo"});
N1:=TRN(M1)*M2*M1;
U1:=TRN(M1)*M2*M3;
Q1:=inv(N1);
D1:=-(Q1*U1);
V1:=(M1*D1)+M3;
V2:=TRN(V1)*M2*V1;

//K1 - kontrola 1.) popravaka treba biti =0
K1:=TRN(M1)*M2*V1;
//K2 - Kontrola 2.) izjedacenja treba biti = lambdi
K2:=TRN(M3)*M2*V1;


F1:=(V2/w1);
S0:=SQRT(F1(1,1));

--- The program WORKS UNTIl here 
X1=w2+D1;

// Popravljena mjerenja su pojedinacna l1,l2,l3...+ matrica V1;
K3:=M1*X1;


///Stohasticki dio



C1:=F1*Q1;

// Deviacija mjerenja tako sto uzmemo korjen od Cx
C2:=F1*inv(M2);
//C2 - tacnost mjerenja

// srednje greske izvucem iz cl matrice korjen(dijagonalnih)
Q2:=M1*Q1*TRN(M1);

C3:=Q2*F1(1,1);
///Srednje greške popravljenih korjen dijagonale clanova C3


Q3:=inv(M2)-Q2;
Q4:=F1(1,1)*Q3;

PRINT("Kontrola K1 =0"+K1);
IF (K2=V2) THEN PRINT ("Kontrola 2 OK!");
END;
END;

The program returns 0, starting with Blolded part of the code- And that is not correct.