VAR
 A:Array [1..10] of Byte;
 Min,i,Imin,D:Byte;
BEGIN
 Randomize;
 Writeln('Initial array:');
 Min:=100;
 For i:=1 to 10 do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
   If A[i]<Min then
    begin
     Min:=A[i];
     Imin:=i;
    end;
  end;
 Writeln;
 Writeln;
 If Imin=5 then
  Writeln('Fifth element is minimal one')
 else
  begin
   Writeln('Changed array:');
   D:=A[5];
   A[5]:=A[Imin];
   A[Imin]:=D;
   For i:=1 to 10 do write(A[i]:4);
  end;
 Readln
END.