var A:array[1..10] of 0..10;
i,max:0..10;
begin
For i:=1 to 10 do
begin
A[i]:=Random(0,10);
Write(A[i]);
end;
Writeln;
max:=1;
For i:=1 to 10 do
If A[i]>A[max] then
max:=i;
i:=A[1];
A[1]:=A[max];
A[max]:=i;
For i:=1 to 10 do
Write(A[i]);
end.