Табулирование+Метка, Метка Опции

[Mambakremen]

Нужна помощь по задаче.

Вывести на экран таблицу функций

F1(x), если x<=a

F2(x), если x>a

Для значений аргумента x в интервале от xn до xk с шагом hk.(Данные водятся с клавиатуры).
Нужно предусмотреть проверку правильности верхней границы xk в диапазоне xn<=xk.
a=3.8.
Сделать два варианта программы с использованием циклов while, repeat.

Не получается сделать цикл или метку на проверку границы, чтобы верхняя была больше нижней, если человек вводит неправильно, его заставляет программа опять ввести нижнюю границу и так пока не будет верхняя больше нижней.

program Z_2;
uses crt;
const
a=3.8;
var y,x,xn,xk,hk,F2,F1:real;
begin
clrscr;
writeln('Tabulirovanie');
write('Verhn granica= ');
read(xn);
write('Nignaya= ');
read(xk);
write('Vvedite shag');
read(hk);
x:=xk;
writeln('  x  |  y ');
repeat
begin
if x<=a then
y:=ln(x*x+2.5)
else
y:=sqrt(x*x+8);
end;
writeln(x:5:2,'|',y:5:2);
x:=x+hk;
until x>xn;
readkey;
end.

[Mambakremen]

Спасибо!

begin/end в repeat) не знаю