Why I don't get AC
here is my code:

var n,k,m,AC:integer;
begin
readln(n,k);
m:=n div 2;
if k=m then AC:=0;
if k<m then AC:=m-k;
if k>m then AC:=k-m-1;
write(AC);
end.