Проверка правильности введённых данных

program n2;
var
a,b,x,y: integer;
begin
repeat
writeln ('Введите диапазон x,y (сначала x, затем y)');
readln (x,y);
if x<=y then begin
writeln ('Введите значение а');
readln (a);
writeln ('Введите значение b');
readln (b);
             if (a>=x) and (a<=y)
               then if (b>=x) and (b<=y)
                      then writeln ('a и b в находятся диапазоне x y')
                      else writeln ('a находится в диапазоне x y')
               else if (b>=x) and (b<=y)
                      then writeln ('b находится в диапазоне x y')
                      else writeln ('a и b не находятся в диапазоне x y')
                      end
        else writeln ('Вводите диапазон так, чтобы x<=y');
until x<y;
end.

var
  a, b, x, y, t: integer;
 
begin
  write('Введите диапазон x, y: ');
  readln(x, y);
  if x > y then
    begin
      t := x;
      x := y;
      y := t
    end;
  write('а = ');
  readln(a);
  write('b = ');
  readln(b);
  if (a >= x) and (a <= y)
    then if (b >= x) and (b <= y)
      then writeln('a и b находятся в диапазоне x y')
      else writeln('a находится в диапазоне x y')
    else if (b >= x) and (b <= y)
      then writeln('b находится в диапазоне x y')
      else writeln('a и b не находятся в диапазоне x y')
end.

const
  m: array[0..3] of string[34] = (
    'a и b не находятся в диапазоне x y',
    'a находится в диапазоне x y',
    'b находится в диапазоне x y',
    'a и b находятся в диапазоне x y');
 
var
  a, b, x, y, t: integer;
 
begin
  write('Введите диапазон x, y: ');
  readln(x, y);
  if x > y then
    begin
      t := x;
      x := y;
      y := t
    end;
  write('а = ');
  readln(a);
  write('b = ');
  readln(b);
  if (a >= x) and (a <= y) then t := 1 else t := 0;
  if (b >= x) and (b <= y) then t := t + 2;
  writeln(m[t])
end.