Сформировать файл тестовых данных целого типа. Опции

[Romka]

Сформировать файл тестовых данных целого типа.Найти сумму элементов файла,принадлежащего интервалу [-10,10] .И блок схему к этой программе.
Помогите решить,а то я с этой задачей запарился уже :molitva:

[volvo]

Program Lab_9;
Uses Crt;
Var
  f: text;
  x, s: integer;

begin
  clrscr;
  assign(f, 'my_file.txt');
  rewrite(f);
  repeat
    Writeln('Введите очередной элемент (-9999 для окончания ввода данных):');
    readln(x);
    if x <> -9999 then writeln(f, x);
  until x = -9999; { условие окончания ввода в файл }

  reset(f); s := 0;
  while not eof(f) do begin
    readln(f, x);
    if (x >= -10) and (x =< 10) then inc(s, x);
  end;
  writeln('Сумма элементов попадающих в интервал [-10, 10] = ', s);
  close(f)
  readln;
end.

Никакого второго файла не нужно (по крайней мере, в задании про него не сказано)...