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

[Раиль]

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

[Coach]

Код

Program Summa;
uses crt;
Const n=10;
Var a: array[1..n] of integer;
    b: array[1..n] of integer;
   i, j, c,m,min: integer;
   t:boolean;
begin
clrScr;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
Write (a[i]:8)
end;
t:=false;
j:=1;
For i:=3 to 10 do
if a[i]=a[i-1]+a[i-2] then
begin
  b[j]:=a[i];
  j:=j+1;
  t:=true
end;
m:=j;
For  i:=1  to m-1 do
begin
   min:=i;
   For j:=i+1 to M-1 do
   begin
       If b[j]<b[min] then
          min:=j;
   end;
   c:=b[i];
   b[i]:=b[min];
   b[min]:=c;
end;
If t=false then
  writeln ('Gisel ydovletvor ysloviu net');
for i:=1 to (m-1) do Write(b[i]:3);
readln;
end.

вот ....