Var
  A:Array [1..10] Of Integer;
  I, flag, number:Integer; 
Begin
  writeln('Введите число: ');
  Readln(number);
  flag := 1;
  For I:=1 To 10 Do
  Begin
    Writeln('Введите элементы массива A[',I,']');
    Readln(A[I]); 
  End;
  For I := 1 to 10 do
  Begin
    if (A[I] > 0) then
    Begin
      if (flag = 2) then
      Begin
        A[I + 1] := number; 
        Writeln(A[I], '- Значение массива; ', I, ' – Индекс массива');
      End;
      flag := flag + 1;
    End;
  End;
  if (flag < 2) then
  Begin
    Writeln('Нет результата!');
  End;
  Writeln('Массив: ');
  For I:= 1 to 10 do
  Begin
    write(A[I], '; ');
  End;
  writeln();
End.