Заполнить случайными числами массив из целых чисел

const
  n_max=100;
type
  arr=array [1..n_max] of integer;
var
  x,y,z:arr;
  zi,yi,n,i:integer;
 
function ifFib(n:integer):boolean;
{(C) Puporev}
var
  a,b,c:integer;
begin
  if n=1 then
    iffib:=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
    iffib:=true
  else
    iffib:=false
end;
 
function ifroot(n:longint):boolean;
var
  r:real;
begin
  if n<0 then
    exit;
  if frac(sqrt(n))=0 then
    ifroot:=true
  else
    ifroot:=false;
end;
 
begin
  randomize; 
  n:=20;
  yi:=0;
  zi:=0;
  for i:=1 to n do
    begin
      x[i]:=Integer(random(n_max)) - n_max div 2;
      write(x[i]:4);
      if iffib(x[i]) then
        begin
          inc(yi);
          y[yi]:=x[i];
        end;
      if ifroot(x[i]) then
        begin
          inc(zi);
          z[zi]:=x[i];
        end;
    end;
  writeln('Числа Фибоначчи:');
  for i:=1 to yi do
    write(y[i]:4);
  writeln;
  writeln('Полные квадраты:');
  for i:=1 to zi do
    write(z[i]:4);
  readln;
end.