Задача на массив, паскаль.

[microedition]

Здравствуйте. Помогите, пожалуйста, доделать решение задачи.
Большую часть кода я уже написал, но есть одна деталь...

Задача:
Дан массив source[1..1000] of real.
Определить максимальное количесто идущих подряд положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными числами. Напечатать найденный фрагмент.

Решение мое таково:

program test;

const

	size	=   1000;

var

	source:		array [1..size] of real;
	index:		integer;
	quantity:	integer;
	counter:               integer;
	i:		integer;

begin

//
//  Ввод массива (код опущен).
//

//
//  Собственно, алгоритм.
//

	quantity := 0;
	counter  := 0;

	for i := 1 to size do
	begin

		if source[i] > 0 then
		begin

			counter := counter + 1;

			if quantity < counter then

				quantity := counter;
		end

		else
		begin

			counter := 0;

		end;

	end;

//
// Здесь мы выводим последовательность (код опущен).
//

end.

Эта программа находит только длину последовательности (см. условие) и
сохраняет её в переменную quantity. А как найти индекс начала её? (индекс сохранить в переменную index.)

[Bonez92]

Объявите переменную max_index.

	quantity := 0;
	counter  := 0;

	for i := 1 to size do
	begin

		if source[i] > 0 then
		begin

			counter := counter + 1;
			if index = -1 then
				index := i;
		end

		else
		begin
			if quantity < counter then
			begin
				quantity := counter;
				max_index := index;
			end;

			counter := 0;
			index := -1;

		end;

	end;

Код на практике не пробовал исполнять.

[microedition]

Bonez92
Большое спасибо, идея ясна.