Обработка сигнала Экг

[railya2015]

Был снят сигнал экг с разных участках тела, типа:
-6193
-5748
-4711
-3470
-2271
-1125
91
1451
2850
4035
4760
4939

.....
По этим нескольким файлам я построила график, проанализировала его и выделила только те области и которыми я буду работать. Так вот мне нужно найти эти интервалы чисел в файлах и записать их в новый. Помогите с кодом программы. Инстинктивно думаю будет так

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
FN:=OpenDialog1.Filename;
AssignFile(f,FN);
Reset(f);
while not Eof(f) do
begin
assignfile(g,'new.txt');
rewrite(g)
while not Eof(f)
for i:=n to m do begin
writeln(g,a[i]);

end;
closefile(g)
closefile(f);
n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);

n,m-начало и конец интервала, числа мне которые мне надо вводить в Edit1, Edit2.

Должен получится файл типа
-3470
-2271
-1125
91
1451
2850

Прошу помощи)

[railya2015]

Подскажите алгоритм

[Vanta11a]

У тебя же есть какие-то индексы у массива чисел. Ищи ближайшие ко введенном числам индексы, и работай с ними.