Вы забыли поставить вторую запятую после x
writeln('x=',x' ','f(',x,')=',f);
Исправленный вариант
writeln('x=',x,' ','f(',x,')=',f);
Верный код программыProgram table;
var f,x: real;
begin
writeln;{перевод курсора на начало следующей строки}
x:=-1;
while x<=1 do begin
f:=sqr(x)+1;
writeln('x=',x,' ','f(',x,')=',f);
x:=x+0.1;
end;
end.