Ошибка в коде Delphi

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста исправить ошибку, только без процедур и функций.

Задача
В одномерном массиве, состоящем из n целых элементов вычислить произведение элементов массива, расположенных между первым и вторым нулевыми элементами.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
const
  n=8;
type
  telem=integer;
  mas=array[1..n] of telem;
var
  a:mas;
  i,m,k,p:telem;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  for i:=1 to n do
  readln(a[i]);

  for i:=1 to n do
  begin
    if a[i]=0 then
    m:=i
  end;

  for i:=m+1 to n do
  begin
    if a[i]=0 then
    k:=i
  end;

  p:=1;
  for i:=m+1 to k-1 do
  begin
    p:=p*a[i]
  end;
  write(p);
  readln
end.

[Serge_Bliznykov]

ну что, совсем даже неплохо.
по большому счёту ошибочка была всего одна - после обнаружения нулевого элемента Вы не прерывали цикл (продолжали искать дальше...)

вот подправленный код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=8;
type
  telem=integer;
  mas=array[1..n] of telem;
var
  a:mas;
  i,m,k,p:telem;
begin
  WriteLn('Enter ',n,' int numbers: ');
  for i:=1 to n do
    readln(a[i]);

  m:=0;
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin m:=i; Break; end;

  for i:=m+1 to n do
    if a[i]=0 then begin k:=i; Break; end;

  if (m=0) or (k=0) then
    WriteLn('Error! No two ZERO elements in arrays!')
  else
    if k=(m+1) then WriteLn('P=0')
    else
    begin
      p:=1;
      for i:=m+1 to k-1 do
         p:=p*a[i];
      writeln('P=',p);
    end;
  readln
end.

[Начинающий програм]

Спасибо Вам вы меня очень выручили! У меня один к Вам вопрос, можно как-то подругому прервать цикл, то есть без использования брейка?

[Serge_Bliznykov]

по другому - использовать ДРУГОЙ вариант цикла, например можно так найти индекс первого нулевого элемента (собственно цикл - это одна строчка кода - выделил полужирным шрифтом):

m := 0;
i := 1;

while (i<=N) and (A[i]<>0) do Inc(i);

if i>N then begin WriteLn('Not found first ZERO!'); Readln; Halt(1) end;
m := i;

или так:

m := 0;
i := 1;
while (i<=N) and (m=0) do
begin
   if a[i]=0 then m:=i
   else Inc(i);
end;

[Начинающий програм]

Спасибо!!!

[Кольша]

еще можно использовать

exit;

[Начинающий програм]

Благодарю Вас!