массив и функция его обработки

[homa371]

Тех. задание
Дан массив целых чисел А(12). Вычислить суммы первых девяти членов массива и последних шести. Найти произведение этих сумм. Вычисление суммы оформить как функцию.

var

A:array[1..12] of Integer;
i,n,s: integer;
p : longint;

function summ(x,b:integer):integer;
begin
s:=0;
for i:=x to b do
    s:=s+A[i];
end;

begin

writeln('Vvedite massiv A[12]:');
for i:=1 to 12 do
read(A[i]);

p:=1;

p:=summ(1,9)*summ(6,12);

writeln('Proizvedenie summ = ',p);

end.

Вот, что я сделал, и, что получилось:

Vvedite massiv A[12]:
1 1 1 1 1 1 1 1 1 1 1 1
Proizvedenie summ = -17823

Сумма первых девяти = 9
Сумма последних 6 = 6
Итого произведение = 54
Таков быть должен результат

[mss]

function summ(x,b:integer):integer;
begin
s:=0;
for i:=x to b do
s:=s+A[i];
summ := s; // эту строчку мыши съели ?)
end;

p:=summ(1,9)*summ(6,12); // пальцы на руках есть ? посчитай хотя бы на пальцах сколько элементов массива с 6-го по 12-й включительно)

[homa371]

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

function summ(x,b:integer):integer;
begin
s:=0;
for i:=x to b do
s:=s+A[i];
summ := s; // эту строчку мыши съели ?)
end;

p:=summ(1,9)*summ(6,12); // пальцы на руках есть ? посчитай хотя бы на пальцах сколько элементов массива с 6-го по 12-й включительно)

попытался так сделать.
на картинке показано какую ошибку выдает.

[mss]

Чума)
А объявление локальной переменной i у тебя тоже мыши съели ?)

[homa371]

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

Чума)
А объявление локальной переменной i у тебя тоже мыши съели ?)

где именно ее объявить,???)))))т.е. в каком месте написать...попробовал со всеми переменными объявить...не получилось...

[mss]

function summ(x,b:integer):integer;
<-- здесь
begin

[homa371]

function summ(x,b:integer):integer;
var summ:integer;
begin
s:=0;
for i:=x to b do
    s:=s+A[i];
summ:=s;
end;

Vvedite massiv A[12]:
1 1 1 1 1 1 1 1 1 1 1 1
Proizvedenie summ = 30976

(((((((((((((((

[mss]

function summ(x,b:integer):integer;
var summ:integer; // это чего ?)
begin

[homa371]

ну в учебнике там написано было,что переменные объявляются таким образом...

[mss]

Так я ж не возражаю против учебника)
Но объявлять-то нужно переменную цикла с именем i !