помогите пожалуйста, задача с табуляцией, ошибка деление на 0.. как её убрать?

[Валюшка]

Program Tabul;
Uses Crt;
Const n=21;
Var i:integer;
x,y,h:real;
a,b:real;
function link(x:real):real;
Begin
link:=sin(x)/x;
end;
Begin
clrscr;
a:=-pi/2;
b:=pi/2;
h:=(b-a)/(n-1);
for i:=1 to n-1 do
begin
x:=a+i*h;
y:=link(x);
writeln('i=',i:2,' y=',y:10:4,' x=',x:10:4);
end;
readln;
end.

[maladoy]

Program Tabul;
Uses Crt;
Const n=21;
Var i:integer;
x,y,h:real;
a,b:real;
function link(x:real):real;
Begin
link:=sin(x)/x;
end;
Begin
clrscr;
a:=-pi/2;
b:=pi/2;
h:=(b-a)/(n-1);
for i:=1 to n-2 do
begin
a:=a+i*h;
if a=0 then a:=a+i*h;
y:=link(a);
writeln('i=',i:2,' y=',y:10:4,' x=',a:10:4);
end;
readln;
end.

[SNUPY]

попробуй заменить y:=link(x); на

if x=0 then y:=1 else y:=link(x);

Это 1-ый замечательный предел ^_^

[Валюшка]

благодарю)