не получается разобраться в коде ! разъясните пожалуйста! код внутри!

[Lion_paint]

const
  maxn=32000;

var
  a:array [1..1000] of longint;
  n,otv,tmp:longint;

procedure qsort(l,r:longint);
var
  i,j,t:longint;
begin
  i:=l;j:=r;t:=a[(i+j) div 2];
  repeat
    while a[i]<t do inc(i);
    while a[j]>t do dec(j);
    if i<=j then
    begin
      tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
      inc(i);
      dec(j);
    end;
  until i>j;
  if i<r then qsort(i,r);
  if j>l then qsort(l,j);
end;

procedure init;
var
  i:longint;
begin
  read(n);
  for i:=1 to n do read(a[i]);
  qsort(1,n);
end;

procedure solve;
var i,sum:longint;
begin
  sum:=0;
  for i:=1 to n do
  begin
    inc(sum,a[i]);
    if (n-i)=sum then
    begin
      otv:=sum;
      break;
    end
    else if sum>(n-i) then
    begin
      otv:=n-i;
      break;
    end;
  end;
end;

begin

  init;
  solve;
  writeln(otv);

end.

[Lion_paint]

Входной файл: 345.in
Выходной файл: 345.out
Ограничение по времени: 234 сек.
Ограничение по памяти: 123 Мб
Максимальный балл: 345 Cкачать условие(doc, rtf, rar)


У кузнеца имеется N цепей, каждая цепь состоит из колец. В одной цепи может быть от 1 до 32000 колец.

Кузнецу необходимо соединить все цепи в одну большую цепь. Для этого он может выполнять следующие операции: расклепать кольцо цепи (расклепанное кольцо можно снимать с цепи и одевать на цепь) и склепать кольцо.

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

Входные данные
В первой строке входного файла находится количество цепочек - целое число N (1 &le N &le 32000).

В следующих N строках дано количество колец в каждой цепочке - по одному числу в строке.

Выходные данные
В выходной файл следует вывести одно целое число - количество расклепанных/склепанных колец.

[__STDC__]

procedure qsort(l,r:longint);
var
  i,j,t:longint;
begin
  i:=l;j:=r;t:=a[(i+j) div 2];
  repeat
    while a[i]<t do inc(i);
    while a[j]>t do dec(j);
    if i<=j then
    begin
      tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
      inc(i);
      dec(j);
    end;
  until i>j;
  if i<r then qsort(i,r);
  if j>l then qsort(l,j);
end;

Это алгоритм быстрой сортировки.. поищи в гугле описание...