04年提高组合并果子pascal这道题，谁能帮我看看我哪里错了啊？

这是我的程序，我是想先把两个最小值找出来，然后把其中一个存两个值的最小值之和，另一个跟最后面的那个值交换，然后就不用再遍历时遍历最后一个了。

program fruit;

var

a:array[1..10000] of longint;

n,e,ji1,ji2:longint;

i:longint;

min,min1,min2:longint;

procedure init;

begin

assign(input,'fruit.in');reset(input);

assign(output,'fruit.out');rewrite(output);

readln(n);

for i:=1 to n do read(a[i]);

end;

procedure work;

begin

min:=0;e:=n;

while e>=2 do begin

min1:=maxint;

min2:=maxint;

for i:=1 to e do begin

if a[i]