найдите ошибку:
Program prim2;
Var x,y: real;
Begin
For x:=-10 to 10 do
Begin
y;=sqr(x);
Writeln(x, ' ', y)
end;
End.

y;=sqr(x); вот тебе и ошибка. Там ;=, а надо двоеточие и равно

y:=sqr(x); 

Ещё счётчик цикла должен быть целочисленный. Var x: integer, а у тебя real 

Program prim2;
Var y: real;
x:integer;
Begin
For x:=-10 to 10 do
Begin
y:=sqr(x);
Writeln(x, ' ', y)
end;
End.

Я кстати вообще не знаю зачем для вычисления корня Вы взяли тип real.