Вывести на экран часть массива до элемента, значение которого равно нулю - Pascal

Вывести на экран часть массива до элемента, значение которого равно нулю. В массиве допускается только один элемент, значение которого равно нулю.

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

  for i:=1 to n do
    if a[i]<>0 then Write(' ',a[i]:2)
    else Break;

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

Создается цикл for от 1 до n, где n - количество элементов в массиве a.
Проверяется условие: если значение элемента массива a с индексом i не равно нулю, то выполняется следующее:
- Выводится значение элемента массива a с индексом i с помощью функции Write с двумя символами пробела для каждого элемента.
Если значение элемента массива a с индексом i равно нулю, то происходит выход из цикла for с помощью команды Break.