Создать типизированный файл, элементы которого вычисляются по формуле — Pascal(Паскаль)

Program tipizfail;
uses crt;
var M: file of integer;
    i,n,Fi:integer;
Begin
 clrscr;
 assign(M,'M.txt');
 rewrite(M);
 writeln('Vvedite Kolichestvo Elementov ');
 readln(n);
 for i:=1 to n do
  begin
   Fi:=i*i+4*i;
   write(M,Fi);
  end;
 writeln('Soderzanie faila:');
 reset(M);
 while not eof(M) do
  begin
   read(M,Fi);
   write(Fi,' ');
  end;
 close(M);
 readln
end.

while not eof(M) do
 begin
  read(M,Fi);
  if Fi mod 4=0
  then inc(d);
 end; 
writeln('Kolichestvo elementov kratnih 4 :',D);
сlose(m);
readln
end.