Найти в последовательности первое значение, большее чем заданное - Turbo Pascal

Формулировка задачи:

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

находит в последовательности

1, 1+h, 1+2h,

... первое значение большее

Решение задачи: «Найти в последовательности первое значение, большее чем заданное»

Листинг программы

uses crt;
var h,a,x:real;
    k:integer;
begin
clrscr;
repeat
writeln('Введите вещественные положительные числа h,a');
readln(h,a);
until(h>0)and(a>0);
x:=0;
k:=0;
while x<=a do
 begin
  x:=1+k*h;
  k:=k+1;
 end;
write('x=',x:0:2);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
Затем определяются переменные h, a и x типа real, а также переменная k типа integer.
Строка clrscr используется для очистки экрана перед началом ввода данных.
В цикле repeat-until читаются значения переменных h и a с помощью функции readln. Цикл продолжается до тех пор, пока введенные значения не удовлетворяют условиям h>0 и a>0.
Переменная x инициализируется значением 0, а переменная k инициализируется значением 0.
Затем начинается цикл while, который выполняется, пока значение переменной x не станет больше или равно значению переменной a.
Внутри цикла значение переменной x увеличивается на 1, умноженное на значение переменной k, умноженное на значение переменной h. Значение переменной k увеличивается на 1.
После выхода из цикла while значение переменной x выводится на экран с помощью функции write.
Затем с помощью функции readln происходит чтение ввода пользователя.
Код завершается.