Program Arr1;
Uses CRT;
Const max = 10;
Var a: Array[1..max] of Byte; {Razmer na 1 menshe maksimalnogo}
     i, j: byte;
     min: byte;
     f: Boolean;
Begin
ClrScr;
Randomize;
Writeln('Ishodnyiy massiv: ');
For i := 1 to max-1 do
     Begin
     a[i] := Random(8);
     Write(a[i]:4);
     End;
min := a[1]; Writeln;
For i := 2 to max-1 do
     If (a[i] < min) then min := a[i];

Writeln(#13#10,'Minimum: ', min);
For i := 1 to max-1 do
     Begin
     If (a[i] = 0) then
        Begin
        For j := max downto i+1 do
            Begin
            a[j] := a[j-1];
            End;
        a[i+1] := min;
        f := True;
        Break;
        End;
     End;
Writeln(#13#10, 'Novyiy massiv: ');
For i := 1 to max do
     Begin
     if (f = False) and (i = max) then Break;
     Write(a[i]:4);
     End;
ReadKey;
End.