Задача на зачёт. Поиск элементов в 1-мерном массиве

[oRik24]

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000]. Найти сумму четных отрицательных элементов.
2. Вывести индексы тех элементов, значения которых кратны 3 и 6.
3. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.

Всё сделал, не получается только последний (3) пункт. Помогите плиз.

var
  Form1: TForm1;
  N, sum, i, x:integer;
  M: array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
n:=strtoint(edit1.Text);
setlength(M,N);
edit2.text:=' ';
for i:=0 to n-1 do
begin
m[i]:=round(sin(random(1000))*1000);
edit2.Text:=edit2.Text+'   '+inttostr(m[i]);
end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=' ';
edit4.Text:=' ';
edit5.Text:=' ';
edit6.Text:=' ';
sum:=0;
for i:=0 to n-1 do
begin
if checkbox1.Checked then
begin
if (m[i]<0) and (m[i] mod 2=0) then sum:=sum+m[i];
edit3.Text:=inttostr(sum);
end;
if checkbox2.Checked then
begin
if (m[i] mod 6=0) or (m[i] mod 3=0) and (m[i]<>0) then
edit4.Text:=edit4.text+' '+inttostr(m[i]);
end;
if checkbox3.Checked then
begin
for i:=1 to n-1 do
begin
if strtoint(edit5.text)=(m[i]+(m[i+1])) then x:=i;
edit6.text:=inttostr(x);
end;
end;
end;
end;
end.

Рабочий вид программы загрузил. Если отмечаю третий чекбокс, то вылезает ошибка типа EConvertError.

[G-Kyller]

Обнули X при объявлении - из-за этого ошибка

и попробуй заменить n-1 на n-2

for i:=1 to n-2 do
begin
if strtoint(edit5.text)=(m[i]+(m[i+1])) then x:=i;
edit6.text:=inttostr(x);
end;

[oRik24]

Не помогает Всё та же ошибка.

[G-Kyller]

а так?

edit6.text:=x;

или так

edit6.text:=StrToIntDef(x);

[oRik24]

Сообщение от G-Kyller

а так?

Так не запускается. Требует, чтобы Х был строкой.

Сообщение от G-Kyller

или так

edit6.text:=StrToIntDef(x);

Аналогично. У меня x:integer, зачем икс переделывать из строки в интеджер?

[oRik24]

Поднимаю тему. Вопрос всё ещё открыт

[Sparkman]

     for i:=0 to n-2 do
     if a[i]+a[i+1]=m then
     begin showmessage('Есть!');break;end;

[oRik24]

Большое спасибо