Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K - Turbo Pascal

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

Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0

Решение задачи: «Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K»

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

Var k,m,j,i:integer;
Begin
    write('Введите k: ');readln(k);
    i:=0;j:=0;
    Repeat
     inc(i);
     write('Введите ',i,'-ое число(окончание ввода число 0): ');
     readln(m);
     if (k=m)and(j=0) then j:=i;
    Until m=0;
    writeln(j);
    readln;
End.

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

В начале кода объявляются переменные k, m, j, i типа integer.
Затем идет запрос на ввод значения k с помощью функции readln.
Далее инициализируются переменные i и j нулем.
Затем начинается цикл Repeat, который будет выполняться до тех пор, пока значение переменной m не станет равным нулю.
Внутри цикла увеличивается значение переменной i.
После этого запрашивается ввод i-го числа с помощью функции readln.
Затем проверяется условие (k=m)and(j=0), если оно истинно, то значение переменной j присваивается значению переменной i.
Цикл Repeat продолжается до тех пор, пока значение переменной m не станет равным нулю.
По окончании цикла выводится значение переменной j с помощью функции writeln.
Конец программы.