В одномерном массиве вставить минимальный элемент после последнего равному 0 - Turbo Pascal

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

Не могу до конца додумать в строках 29,30,31 помогите плиз!!

program mas;
uses crt;
 
var A:array[1..100] of integer;
 
    i,k,n,min:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva A = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       begin
       write('a[',i,']=');
       readln(a[i]);
       end;
       
           min:=A[1];
           For i:=1 to n do
           Begin
            If a[i]<min then
              min:=a[i];
           End;
       
              k:=0;
              For i:=n downto 1 Do
               if A[i] =0 then
               begin

                 k:=1;
               end;
 
          if k=0 then
           writeln('V massive net chisela = 0')
           else
           begin
           writeln;
             writeln('Poluchivschiysya massiv');
             for i:=1 to n+1 do
              Writeln (A[i]);
           end;
    readln;
end.

Решение задачи: «В одномерном массиве вставить минимальный элемент после последнего равному 0»

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

program mas;
 
 
var A:array[1..100] of integer;
 
    i,k,n,min:integer;
begin
 
    write('vvedite kolichestvo elementov massiva A = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       begin
       write('a[',i,']=');
       readln(a[i]);
       end;
       
           min:=A[1];
           For i:=1 to n do
           Begin
            If a[i]<min then
              min:=a[i];
           End;
       
              k:=0;
              For i:=n downto 1 Do
               if A[i] =0 then
               begin
 a[i+1]:=min;
 
 
                 k:=1;
               end;
 
          if k=0 then
           writeln('V massive net chisela = 0')
           else
           begin
           writeln;
             writeln('Poluchivschiysya massiv');
             for i:=1 to n+1 do
              Writeln (A[i]);
           end;
    readln;
end.

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

Создается программа на языке Turbo Pascal.
Создается переменная A, которая представляет собой одномерный массив целых чисел размером от 1 до 100.
Задается переменная n, которая будет хранить количество элементов в массиве A, введенное пользователем.
Выводится сообщение с запросом ввести количество элементов в массиве A.
Выводится сообщение «Введите элементы массива».
В цикле for i от 1 до n происходит следующее:
- выводится сообщение «a[»,i,»=»;
- считывается элемент массива A[i] и сохраняется в переменной a[i].
- обновляется переменная min, если текущий элемент меньше min.
- обновляется переменная k, которая будет указывать на позицию следующего элемента, равную 0, если текущий элемент равен 0.
Если k равно 0, выводится сообщение «В массиве нет нулевых элементов».
Если k не равно 0, выводится сообщение «Получаем исходный массив».
Выводится сообщение «Элемент с индексом i+1» (где i - это текущий индекс).
Выводится значение a[i+1].
Если значение a[i+1] равно min, то выводится сообщение «В массиве нет нулевых элементов».
Если значение a[i+1] не равно min, то выводится сообщение «В массиве есть нулевые элементы».