Memiliah operasi matematika sederhana

//Prosedur untuk memilah operasi matematika
//dari sebuah string yang berisi operasi matematika menjadi
//3 string yaitu SisiKiri, Operasi dan SisiKanan

Procedure PisahOperasi(StEvaluasi:String;Var stLeft,stOperator,stRight:String);
Var I,J : Integer;
st:String;
Op,EverOp:Boolean;
Begin
Op:=False;
EverOp:=False;
st:=”;
J:=1;
For I:= 1 to Length(StEvaluasi) Do
Begin
st:=StEvaluasi[i];
If stEvaluasi[i] in ['=','>','<'] Then Op:=True else Op:=False;
If Op=True Then
Begin
EverOp:=True;
StOperator:=StOperator+st;
End Else
Begin
If EverOp Then
StRight:=StRight+st else
StLeft:=Stleft+st
End;
End;
Stleft:=Trim(Stleft);
StOperator:=Trim(StOperator);
stRight:=Trim(stRight);
End;