Массив, одномерный массив Опции

[Маруха]

Помогите, пожалуйста!!!
Задача: Вычислить сумму элементов массива, начиная с "К"-го по порядку и до элемента равного нулю (если такой элемент встретиться; иначе - до конца массива). "К", длину массива и значения элементов вводить с клавиатуры.

ПОЖАЛЙСТА!!!

[trminator]

Код

{...}
Sum := 0; i := k;
while (m[i] <> 0) and (i <= Mmax) do
begin
   Sum := Sum + m[i];
   inc(i)
end;
{...}

А то break как-то некрасиво ИМХО