program Project191110m;
uses
  SysUtils;

{$APPTYPE CONSOLE}
  var    today : TDateTime;
var a:array[1..100000000] of integer;
n,nm,i,k,max,t:integer;
begin
writeln('n=');
readln(n);
randomize;
for i:=1 to n do
 a[i]:=1000-random(2000);
today := Time;
 writeln('Time 1 = '+TimeToStr(today));


k:=n;
while k>0 do begin
max:=a[1];
nm:=1;
for i:=2 to k do
if a[i]>max then begin
max:=a[i];
nm:=i;
end;
t:=a[k];
a[k]:=max;
a[nm]:=t;
k:=k-1;
end;
today := Time;
 writeln('Time 2 = '+TimeToStr(today));
 readln;

end.