[Bargest]

не знаю, что не так. Но могу предложить другой вариант, проще и быстрее.
если я верно понимаю, то

Код:

     repeat
      a[j]:=a[j-1];
      j:=j-1;
     until (j=1) or (a[j-1]<=s);

будет малость долго...
Я б сделал так:

Код:

for i:=1 to cnt-1 do
 for j:=i+1 to cnt do
  if a[i]>a[j] then
  begin
   k:=a[i];
   a[i]:=a[j];
   a[j]:=k;
  end;

По-моему называется линейная сортировка. (или пузырьковая?.. вечно их путаю).