Una pregunta sobre programación en Pascal, ¿por qué mi método siempre es incorrecto? ¿Dónde está el error? ¡Por favor, dame algún consejo!

var i,m,n,j,x,j1,j2,ans:integer;

begin

leer(n,m,j);

ans:=0; j1:=1; j2:=m;

para i：=1 a j hacer

comenzar

leer(x);

si x>j2 entonces inc(ans,x-j2)

si no, si x

end;

writeln(ans );

end.