program Test;
{$APPTYPE CONSOLE}
uses
  Sysutils, Windows;

var
  razmer:integer;
  b:array[ 1 .. 20 ] of integer;
  Time1,Time2,nomvar,d,m,kl,min,obmen:integer;
begin
  razmer:= 11 ;
  for d:= 1  to  20  do
    b[d]:=d;
  nomvar:= 0 ;
  Time1:=GetTickCount;
  while True do
    begin
      nomvar:=nomvar+ 1 ;
      for m:=razmer downto  2  do
        if b[m]>b[m- 1 ] then
          break;
      if m= 1  then
        Break;
      obmen:=m- 1 ;
      for min:=obmen+ 1  to razmer do
        if (b[min]<b[m]) and (b[min]>b[obmen]) then
          m:=min;
      min:=b[obmen];
      b[obmen]:=b[m];
      b[m]:=min;
      for d:=obmen+ 1  to razmer- 1  do
        begin
          m:=d;
          for kl:=d+ 1  to razmer do
            if b[kl]<b[m] then
              m:=kl;
          min:=b[m];
          b[m]:=b[d];
          b[d]:=min;
        end;
    end;
  Time2:=GetTickCount;
  Writeln('Count: '+IntToStr(nomvar));
  Writeln('Time: '+IntToStr(Time2-Time1)+'(ms)');
  Readln;
end.

      for m:=razmer downto  1  do
        begin
          if m= 1  then
            break;
          if b[m]>b[m- 1 ] then
            break;
        end;