Помогите, пожалуйста. Дан массив из n чисел. Вычислить произведение символов в массиве до первого отрицательного. Программа написана, но ответ k не показывается

[quakenez]

Program z1;
 const n=10;
 var k, i: longint;
 mas: array [1..n] of longint;
 begin 
 for i:=1 to n do begin
 writeln('Введите[',i,']');
 readln (mas[i]);
 end;
 k:=1;
while mas[i] > 0 do
  k:=k*mas[i];
write('Ответ: ', k)
 end.

[BDA]

for i := 1 to n do
begin
  if mas[i] < 0 then
    break;
  k := k * mas[i];
end;

[quakenez]

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

for i := 1 to n do
begin
  if mas[i] < 0 then
    break;
  k := k * mas[i];
end;

у меня всё равно не получилось

[BDA]

Как отредактировали код? Что ввели в качестве элементов массива, что получили, что ожидали?