[Rosenkrantz]

Код:

program Array_01;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  // Одномерный массив с данными
  Data: Array [0..5] of Integer = (
    123,
    43,
    9809,
    0,
    -2143,
    654
    );

var
  i: Integer;
  ZeroFound: Boolean;
begin
  i := 0;
  ZeroFound := False; // Признак обнаружения ноля

  // Перебор данных пока не закончатся или пока не найдем ноль
  while (i < High(Data)) and (not ZeroFound) do begin
    Writeln(Data[i]);         // распечатать число
    ZeroFound := Data[i] = 0; // проверить - не ноль ли это
    Inc(i);                   // переход к следующему элементу
  end;
  Readln; // Чтобы пользователь успел увидеть результат, делаем задержку до
          // нажатия Enter
end.