Найти два числа,сумма каких равняется сумме всех других чисел, которые остались! Помогите будьте людьми!

[Snake08]

Дано n чисел, 3<=n<=1000, -1000<=xi<=10000. . Найти среди них два таких числа xa и xb, что их сумма равняется сумме всех других чисел, которые остались .
Входные данные:
В первой строке входного потока содержится одно число n. ВО второй строке входного потока содержится n чисел xi, разделенных пропуском.
Исходные данные:
В первую строку исходного потока вывести два числа xa и xb разделенных одним или больше пропусками. Если невозможно найти таких два числа - вывести числа 0 и 0.
Пример входных данных 1:
5
-5 2 5 3 5
Пример исходных данных 1:
2 3
Пример входных данных 2:
4
2 6 -4 1
Пример исходных данных 2:
0 0
Время работы программы не должно превышать 5 сек на Intel Core 2 Duo E2180.

[alex_fcsm]

var i,j,n:integer;
    a:array[1..1000] of integer;
    flag:boolean;
function IsTrue(i,j:integer):boolean;
var m,sum:integer;
begin
IsTrue:=false;
sum:=0;
 for m:=1 to n do
  if (m<>i) and (m<>j) then sum:=sum+a[m];
if sum=(a[i]+a[j]) then  IsTrue:=true;
end;

begin
flag:=false;
writeln('Input n');
readln(n);
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
 for j:=i to n do
  if i<>j then if IsTrue(i,j) then  begin
                                flag:=true;
                                writeln(i,' ',j);
                               end;
if not flag then writeln('0 0');
readln;
end.

[Snake08]

всьо хорошо спасиба!
Вот только на 1 тесте заваливается!
5
-5 2 5 3 5
а выводит:
2 4!
помоги а!

[alex_fcsm]

выводятся индексы в массиве. Подпиши вместо

writeln(i,' ',j);

writeln(a[i],' ',a[j]);

[Snake08]

большое спс!