1.Y= в начале не имеет смысла он должен стоять в begin...end. с числом и ;
2.varx,y: integer; varx нет такой команды. есть var.
3.if x=2 then y:=sqrt(sqr(x)) не хватает в конце ;
4.(я не знаю считать это за ошибку) нетрешений пишется раздельно
5.if (x=3) and (x не до конца дописана.