Программа определения попадания точки в заданный интервал — Pascal(Паскаль)

Program Otr;
Var x,a,b,c,d:real;
begin
writeln('vvedite x');
Readln(x);
writeln('vvedite A i B');
REadln(A, B);
writeln('vvedite C i D');
Readln(c, D);
 if(x>a) and (x<b) then
Writeln ('X PRENADLE}I{IT OTPEZKU AB');
if (x>c) and (x<d) then
 Writeln('X PRENADLE}I{IT OTPEZKU CD');
if (x<a) or (x>b) then
 Writeln('X HE PRENADLE}I{IT OTPEZKAM AB');
if (x<c) or (x>d) then
 Writeln('X HE PRENADLE}I{IT OTPEZKAM CD');
if (x=c) then
 wRITELN('X SOVPADAET S TOCHKOI C');
if (x=d) then
 wRITELN('X SOVPADAET S TOCHKOI D');
if (x=a) then
 wRITELN('X SOVPADAET S TOCHKOI A');
if (x=b) then
 wRITELN('X SOVPADAET S TOCHKOI B');
Readln;
end.