一道难题，在线求大犇！！！

var
n,m,i:longint;d,x:extended;
a:array[1..100000]of extended;
function f(y:longint):extended;
begin
if y=1 then exit(a[1]);if y=n then exit(a[n]);
if y=2 then exit((f(3)-a[1])/2+d);
if y=n-1 then exit((a[n]-f(n-2))/2+d);
exit((f(y+1)-f(y-1))/2+d);
end;
begin
readln(n,m);
readln(d,a[1],a[n]);
a[m]:=f(m);
//for i:=3 to n-1 do a[i]:=2*a[i-1]-a[i-2]-2*d;
writeln(a[m]:0:3);
end.
这是我写的代码，但总是202错误求大神们！！！