Напечатать все числа Фибоначи, не превышающие случайное число A из отрезка [20..100]  — Pascal(Паскаль)

VAR f   :array [1..30] of LongInt;
        I   :Integer;
BEGIN
    f[1]:=1; f[2]:=1;
    for i:=3 to 30 do begin f[i] := f[i-1] + f[i-2];
    f[i]:=(random(80)+21);
  Write(' ', f[i]) end;
 
END.