Program ideone;

var
    arr: array[1..10] of integer;
    i, max: integer;

begin
    randomize;
    max := 0;
    for i:=1 to length(arr) do
    begin
        arr[i] := random(100);
         if arr[i] >= arr[max] then
         begin
            max := i;
        end;
      end;
      
      i := arr[1];
      arr[1] := arr[max];
    arr[max] := i;
    
    for i:=1 to length(arr) do
    begin
        writeln(arr[i]);
      end;
end.