Заполнять массив до тех пор пока не ввели k - Pascal ABC

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

Заполнять массив до тех пор пока не ввели k. После чего вывести элементы массива до введения k. Помогите пожалуйста!

Решение задачи: «Заполнять массив до тех пор пока не ввели k»

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

var
    ar: Array[Byte] Of Integer;
    i, n, k: Integer;
begin
    Write('Input k='); ReadLn(k);
    n := 0;
    repeat
        Write('Input number: '); ReadLn(ar[n]);
        Inc(n);
    until (ar[n - 1] = k);
    Write('Array:');
    for i := 0 to n - 2 do
        Write(' ', ar[i]);
    WriteLn;
end.

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

В начале объявляются переменные: ar - массив целых чисел типа Array[Byte] Of Integer; i, n, k - целые числа.
Затем идет блок WriteRead, который используется для ввода значения k и переменной n.
После этого начинается цикл repeat, который выполняется до тех пор, пока значение элемента ar[n-1] не станет равным k.
Внутри цикла пользователю предлагается ввести число. Это число записывается в элемент массива ar[n].
После окончания цикла переменная n увеличивается на 1.
После завершения цикла выводится сообщение 'Array:', и для каждого элемента массива от 0 до n-2 выводится пробел, а затем значение этого элемента.
Наконец, выводится символ новой строки WriteLn.