Pascal/Turbo Pascal - Cargar el resultado de una función en un archivo secuencial Pascal

Uses CRT;

Const

  TOPE = 10;

Type

  FicheroEnteros = File of integer;

var

  i,n : integer;

  Vector : Array [1..TOPE] of integer;

  FInt   : FicheroEnteros;

Function Num : Integer;

begin

  num:=random(100);

end;

begin

  randomize;

  {Con este for, generamos e insertamos los valores en el vector.}

For i:=1 to tope do

       vector[i]:=NUM;

   {Vamos con el fichero}

    assign(Fint,'numeros.dat');

  {$i-}Reset(FInt);{$i+}

  if ioresult <> 0 then {Habr¡a que analizar varias cosas pero yo he optado por reescribir el fichero si da problemas}

    rewrite(fint)

  for i:=1 to tope do

        Write(fint,num);

  Close(FInt);

  end.