Произвести заданные действия с типизированным файлом - Pascal

var
  f: file of integer;
  g: text;
  i, n, k, r, q, m: integer;
 
begin
  n := 10;
  Assign(g, 'in.txt');
  Rewrite(g);
  for i := 1 to n do
  begin
    m := -n div 2 + Random(n);
    writeln(g, m);
    write(m:6);
  end;
  writeln;
  close(g);
  Assign(f, 'in.dat');
  Rewrite(f);
  Reset(g);
  while not Eof(g) do
  begin
    readln(g, m);
    write(f, m);
  end;
  Close(g);
  Reset(f);
  k := 0;
  while not Eof(f) do
  begin
    read(f, m);
    if odd(m) then 
      inc(k);
  end;    
  writeln('Количество нечетных компонент типизированного файла: ', k);
  seek(f, 3);
  write(f, k);
  writeln('Измененный файл: ');
  Reset(f);
  while not Eof(f) do
  begin
    read(f, m);
    write(m:6);
  end;    
  Close(f);
end.