program p1;
type
  data = array[1..100] of integer;
var
  i, n, s, l, min, imin: integer;
  f: text;
  a: data;
  flag: boolean;
begin
  repeat
    repeat
      write('Введите количество элементов от 1 до 100: ');
      readln(n);
    until((n >= 1) and (n <=100));

    assign(f, 'D:\Public\PABCWork.NET\Output\input.txt');
    reset(f);
    for i := 1 to n do
    begin
      readln(f, a[i]);
    end;
    close(f);

    l := 1;
    flag := true;
    while ((l <= n) and flag) do
      if(a[l] <> 0) then
        inc(l)
      else
        flag := false;

    if flag then
      l := 0;

    flag := true;
    i := l + 1;
    while ((i <= n) and flag) do
      if(a[i] <= 0) then
        inc(i)
      else
      begin
        flag := false;
        imin:= i;
      end;

    for i := n downto l + 2 do
      if((a[i] <= a[imin]) and (a[i] > 0)) then
        imin := i;

    assign(f, 'D:\Public\PABCWork.NET\Output\output.txt');
    rewrite(f);

    if flag then
      writeln(f, 'Нет элементов, удовлетворяющие условию!')
    else
      writeln(f, 'Индекс элемента равен: ', imin, ', значение элемента равно: ', a[imin]);

    writeln(f, 'Исходный массив: ');
    for i := 1 to n do
      writeln(f, a[i]);
    close(f);

    write('Повторить выполнение программы? 1 - Да, 0 - Нет: ');
    readln(s);
  until(s = 0);
end.