Среди n заданных случайным образом чисел выделить цветом те, которые являются членами ряда фибоначчи ( 1 1 2 3 5 8 13…..)- Pascal(Паскаль)

uses crt;
function IsFib(n:integer):boolean;
var a,b,c:integer;
    f:boolean;
begin
if n=1 then f:=true
else
 begin
  a:=1;
  b:=1;
  c:=0;
  while c<n do
   begin
    c:=a+b;
    a:=b;
    b:=c;
   end;
 end;
if c=n then f:=true else f:=false;
IsFib:=f;
end;
var a:array[1..100] of integer;
    n,i:byte;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Массив, красным цветом числа Фибоначчи');
for i:=1 to n do
 begin
  a[i]:=random(30)+1;
  if IsFib(a[i]) then textcolor(12)
  else textcolor(15);
  write(a[i]:3);
 end;
readln
end.