Помогите пожалуйста! Задача на последовательность! Опции

[Раиль]

Помогите пожалуйста!!! Угроза вылета из института!!! Надо до завтра сделать!!!
Вот задача:
Дана последовательность целых чисел. Вывести все числа, равные сумме двух предыдущих чисел. Выведенные числа упорядочить по возрастанию. Числа задавать с помощью генератора случайных чисел.
ПОЖалуйста

[Гость]

Ну я набрал:
Program Summa;
uses crt;
Const n=10;
Var a: array[1..n] of integer;
i, j, c: integer;
begin
clrScr;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
Write (a[i]:8)
end;
if a[i]<>a[i-1]+a[i-2] then
Write ('Oaeeo ?enae iao')
Else
if a[i]=a[i-1]+a[i-2] then begin
for j:=1 to n-1 do
a[j]:=a[i];
if a[j]>a[j+1] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;
for j:=1 to n do Write(a[j]:8)
end;
end.
А программа проверяет только последнее число!!! Вот!!!