Генератор псевдослучайных чисел

[Veryn4ik1993]

Здравствуйте!!!Помогите пожалуйста!Генератор псевдослучайных чисел, мне нужно, чтобы записывалось каждое число в файл, а у меня обнуляется, как мне это исправить
и можно ли здесь использовать Randomize

program r;

var
  i: integer;x: integer;my: integer;g: text;

const
  a1 = 214013;
  c = 2531011;
  m = 232;

begin
  assign(g, 'J:\К\1.txt' );
  i := 0;
  my := 8;
  while (i < 1000) do
  begin
    x := (a1 * my + c) mod m;
    my := x; 
    for i := 1 to 100 do
      rewrite(g);
    write(g, my);
    inc(i);
    
    close(g);
  end;
end.

[Stilet]

rewrite(g); вынеси из цикла после assign
close(g); вынеси за end цикла.

и можно ли здесь использовать Randomize

Нет смысла.

[type_Oleg]

Сообщение от Veryn4ik1993

...и можно ли здесь использовать Randomize

Randomize - если использовать функцию Random. А здесь Randomize ничего не даст.