помогите исправить ошибку в паскале

Program kontrolinaa;
uses crt;
const a=2;b=0.4;
var
y,x,e:real;
i:integer;
begin
x:=-1.72;
repeat
if x>a then y:=exp(x-a)-sqr(ln(abs(b-x)))
else
if (x>b) and (x2.88;
writeln ('x=',x,'y=',y);
readln;
end.

пишет в этой строке что if x