Программирование алгоритмов с массивами, Помогите решить 2 задачи Опции

[GORBUNKI]

Помогите решить две задачи Пожалуйста:
1.Найти номер последнего отрицательного элемента в массиве.
2.Заполнить N элементов массива А числами Фибоначчи (первые два элемента равны 1, а каждое следующее - сумме двух предыдущих).
И Пожалуйста Обе

[AlaRic]

Оптимизация и устранение неточностей:

Код

Const
Mmax=20;
Var
i,k : Word;
m : array [1..Mmax] of Integer;
Begin
Randomize;
Clrscr;
{Заполняем массив случ. числами от -200 до +200}
For i:=1 to Mmax do m[i]:=Round(Random(400)-200);
For i:=Mmax downto 1 do If m[i]<0 then begin k:=i; break; end;
Writeln('Последний отрицательный элемент под номером ',k,' и равен ',m[k]);
End.