Напечатайте таблицу значений функции y=1\x^2 при изменении х от — 10 до 10 с шагом 1

Program chik;
var y,x:real;
begin
x:=-11;
while x<10 do
begin
x:=x+1;
if(x<>0)then y:=1/(x*x) else y:=-1;
if(y<>-1)then writeln(y) else writeln('при x=0 нет решений');
end;
end.