Дано натуральное число n. Записать в файл g все целые числа b[1]...b[n]

uses crt;
Var g:file of integer;
    i,n: integer;
    f,s,b,a: longint;
Begin
 
    write('vvedite N ');
    readln(n);
    Assign(g,'d:\g.txt');
    Rewrite(g);
    For i:=1 to n do
    Begin
      f:=1;
for i:=1 to n do
begin
   f:=f*i;
   a:=1;
 for i:=1 to n do
 begin
     a:=i*i;
     s:=1;
for i:=1 to n do
begin
     s:=a+f;
    End;
    end;
    end;
    end;
    write (g, s);
    close(g);
    Reset(g);
    write('polychenij fajl');
    While not Eof(g) do Begin
      read(g, s);
      writeln;
    End;
    readln;
End.

Var g: file of longint;
    i, j, n: integer;
    b: longint;
Begin
  write('vvedite N ');
  readln(n);
  Assign(g,'d:\g.txt');
  Rewrite(g);
  For i:=1 to n do
    Begin
      b:=1;
      for j:=2 to i do b:=b*j; //i!
      b:=b+i*i; //+i^2
      write (g, b); //запись в файл
    end;
  close(g);
  Reset(g);
  write('polychenij fajl');
  While not Eof(g) do Begin
    read(g, b); //чтение из файла
    writeln(b) //вывод на дисплей
  End;
  readln
End.