Вычислить f (x)=1/x, x не равно 0, при x= -10,- с использованием оператора for

Var a,i,x:integer; f:real;begin for x:=-10 to 10 do begin if x <> 0 then   f:=1/x; writeln('f','(',x,')=',f:2:4); end; end.