Вычислить значение заданной Днф для заданных значений встречающихся в ней переменных

[Lenyska1111]

Паскаль. Т.е. вводим функцию в строку и при определнных значениях x,y,z нам должен выдавать значение фукции. Умножение и сложение работает правильно,а вот отрицание не работает(Помогите пожалуйста срочно нужно!
uses crt;
var x,y,z,f,i,m,j,k,n,l,:integer;
s,v,w,u:string;
begin
clrscr;
f:=0; n:=1;
writeln('vvedite formyly');
readln(s);
k:=length(s); s:=s+'+';
writeln('vvedite znacheniya x= ,y= ,z= ');
readln(x,y,z);

while (s<>'') do {ckobka do pervogo plusa}
begin
for i:=0 to k do
begin
l:=pos('|',s);
u:=copy(s,l+1,1);
delete(s,l,1);
if u='x' then x:=1-x;
if u='y' then y:=1-y;
if u='z' then z:=1-z;
end;

i:=pos('+',s);
v:=copy(s,1,i-1);
delete(s,1,i);
m:=length(v);
v:=v+'*';
while (v<>'') do
begin
j:=pos('*',v);
w:=copy(v,1,j-1);
delete(v,1,j);
if w='x' then n:=n*x;
if w='y' then n:=n*y;
if w='z' then n:=n*z;
w:='';
end;
f:=f+n; n:=1;
v:='';
end;
if f>1 then f:=1;
write('znachenie fynkcii f=');
write(f);
readln;
end.