Программа на pascal

[dim78]

Будьте добры помочь написать задачу на паскале.
Дан одномерный целочисленный массив размерности N. Написать программу поиска номера первого из двух последовательных элементов, сумма которых минимальна .

[domovou]

var a : array[1..1000] of integer;
    n, k, i, min : integer;
begin
write('N = ');readln(n);
for i := 1 to n do
         begin
         a[i]:=random(10)+1;
         write(a[i]:3);
         end;
k := 1;
min := a[1] + a[2];
for i := 2 to n-1 do
    begin
     if (a[i] + a[i + 1]) < min then
        begin
        min := a[i] + a[i + 1];
        k := i;
        end;
    end;
writeln;
writeln('Nomer 1 elementa = ',k,' (',a[k],',',a[k+1],')');
end.

[dim78]

Спасибо за помощь!)