Вывести на печатать все числа до нуля включительно - Turbo Pascal

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

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

Решение задачи: «Вывести на печатать все числа до нуля включительно»

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

uses
  crt;
 
const
  n = 13; {Количество чисел в последовательности}
 
var
  a: array [1..n] of integer;
  i, k: integer;
  fl: char;
 
label inp;
 
begin
  inp: ClrScr;
  write('Начальная последовательность'); writeln; writeln;
  for i := 1 to n do 
  begin
    a[i] := random(10); {Рандомный ввод чисел от 0 до 9 включительно}
    write(a[i]:4);
  end;
  writeln;
  writeln;
  for i := 1 to n do
    if a[i] = 0 then k := i; {сравниваем с 0 и запоминаем его позицию}
  for i := 1 to k do {выводим на экран все числа до 0}
    write(a[i]:4);
  writeln; writeln;
  readkey;
  writeln('Для повторного запуска программы введите 1');
  read(fl);
  if fl = '1' then goto inp;
end.

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

В начале кода подключается библиотека crt, которая необходима для работы с функцией ClrScr (очистка экрана).
В разделе const определяется переменная n, которая указывает количество чисел в последовательности (в данном случае 13).
В разделе var определяются переменные a, i, k и fl. Переменная a представляет собой массив целых чисел, переменная i используется для итерации по массиву, переменная k используется для отслеживания позиции первого числа, равного 0, а переменная fl используется для чтения символа с клавиатуры.
В разделе label inp определяется метка, под которой будет выполняться цикл.
В блоке begin...end первого цикла for происходит инициализация массива a случайными числами от 0 до 9 (inclusive). Затем каждое число выводится на экран с помощью функции write.
Во внутреннем цикле for проверяется условие a[i] = 0. Если это условие истинно, то переменная k устанавливается равной i. Это необходимо для того, чтобы при следующем проходе внутреннего цикла выводить на экран все числа до 0, включая само число 0.
Во внешнем цикле for происходит вывод на экран всех чисел до 0, включая те, которые были равны 0. Каждое число выводится на экран с помощью функции write.
В конце программы считывается символ с клавиатуры с помощью функции readkey. Если введенный символ равен '1', то программа перезапускается с помощью оператора goto.
Код завершается после ввода символа '1'.