Повторить ввод при неверных значениях - Free Pascal

repeat
  writeln('Введите размер мужского носка за стандартом Украины');
  readln(x);
  case x of
  23:writeln ('Размер носков за стандартом ЭС 37/38');
  25:writeln ('Размер носков за стандартом ЭС 39/40');
  27:writeln ('Размер носков за стандартом ЭС 41/42');
  29:writeln ('Размер носков за стандартом ЭС 43/44');
  31:writeln ('Размер носков за стандартом ЭС 45/46');
  else
    writeln ('Это значение не подходит, повторите ещё раз!')
  end;
until x in [23,25,27,29,31];