Числа Фибоначчи. Рекурсия

program fibonachi;
 
function fib(a:integer): integer;
begin
    if (a <= 2) then
        fib := 1
    else
        fib := fib(a-1) + fib(a-2);
end;

program hyj;
 
function fib(a:integer): integer;  {процедура}
begin
    if (a <= 2) then
        fib := 1
    else
        fib := fib(a-1) + fib(a-2);
        
end;
const n=32;
var
    i,a,b,k,j:integer;
    m:array[1..n] of integer;
    F:text;
    st:integer ;
begin
{assign(F,'D:\F.txt');
rewrite(F);}    {пока не доделано}
  while (a<4294967295) do
    begin
    i:=i+1;
    k:=fib(i);
      while(k>=1) do             {перевод в двоичную систему}
       begin
       j:=j+1;
       m[j]:=k mod 2;
       k:=k div 2;
       end;
      b:=j;
     for j:=b downto 1 do
     begin
     write(m[i]:3);
     end;
end;
end.

program hyj;
uses crt;
function fib(i:integer): integer;
begin
    if (i = 0) then
        fib :=0
    else
        begin
          if (i <= 2) then
             fib := 1
          else
             fib := fib(i-1) + fib(i-2);
        end;
end;
const n=32;
var
    i,b,k,z:integer;
    j:integer;
    m:array[1..n] of integer;
    F:text;
begin
  assign(F,'D:\Êóðñîâàÿ.txt');
  rewrite(F);
  while (z<4294967295) do
    begin
    z:=fib(i);
    i:=i+1;
    k:=z;
    j:=0;
      repeat
        j:=j+1;
        m[j]:=k mod 2;
        k:=k div 2;
      until(k<1);
    b:=j;
      for j:=b downto 1 do
        begin
          write(m[j]:1);
          write(F,m[j]);
        end;
      writeln(' ');
      writeln(F,'  ');
    end;
 
 
 
  writeln('i=',i);
  writeln(F,i);
  close(F);
end.