Метод Эйлера-Коши. Паскаль

[Павел58]

Почему при m не равной 0 не работает=( помогите разобраться! буду очень благодарен!заранее спасибо

Program eulerkoshi;
uses crt;
var a,b,x,p,q,u,v,d,m,x0,y0,z0,y,y1,z,z 1,h:real;
i,n:integer;
function f(x:real;y:real;z:real):real;
begin clrscr;
f:=((q*z)/p)-u*d/p;
end;
begin
write('a=');readln(a);
write('b=');readln(b);
write('n=');readln(n);
write('p=');readln(p);
write('q=');readln(q);
write('u=');readln(u);
write('m=');readln(m);
write('y0=');readln(y0);
write('z0=');readln(z0);
x0:=a;
h:=(b-a)/n;
v:=abs(y);
if (m<0) then d:=(-1)*exp(m*ln(v)) else
if (m>0) then d:=exp(m*ln(v));
if not(odd(round(m)))then d:=abs(d);
if (m=0)then d:=1 ;
for i:=1 to n do
begin
x:=x0+h;
y1:=y0+h*z0;
z1:=z0+h*f(x0,y0,z0);
y:=y0+(h/2)*(z0+z1);
z:=z0+(h/2)*(f(x0,y0,z0)+f(x,y1,z1));
x0:=x;
Y0:=y;
z0:=z;
end;
writeln('y1=',y1);
writeln('z1=',z1);
writeln('d=',d);
writeln('y=',y);
writeln('z=',z);
end.

[Павел58]