Описать процедуру fib(f,n), записывающую в типизированный файл f все числа Фибоначчи (1, 1, 2, 3, 5, …), не превосходящие целого положительного числа n — Pascal(Паскаль)

Program xa;
uses
  crt;
Type
  riad=file of longint;
var
  j:integer;
  i:longint;
  f:riad;
  namefile:string;
 
function fibch(n:integer): longint;
begin
  if n<=2 then
    fibch:=1
  else
    fibch:=fibch(n-1)+fibch(n-2)
end;
 
Procedure fib(var f:riad;n:longint);
var
  j:integer;
  tmp:longint;
begin
  j:=1;
  tmp:=fibch(j);
  While tmp<n do
  begin
    Write(f,tmp);
    inc(j);
    tmp:=fibch(j);
  end;
end;
 
begin
  repeat
    clrscr;
    Writeln('VVedite Chislo');
    readln(i);
  Until i>0;
  Writeln('VVedite nauMeNoBaNue faila');
  readln(namefile);
  assign(f,namefile);
  rewrite(f);
  fib(f,i);
  close(f);
  readkey;
end.