Одномерный массив, паскаль.

[ene21]

Подскажите почему не работает програмка. Собственно условие в тексте. Идея выполнения такая. Берем одну две переменных, пробегаем по массиву, находим первый ноль - присваеваем первой переменной. Пробегаем от него опять по массиву до след. нуля и присваеваем его второй переменной, а потом выводим все что между ними.

program unit_6;
uses crt;
var
a:array [1..10] of integer;
i,n:integer;
nl1,nl2:integer;
begin
clrscr;
writeln('программа формирует новый массив, содержащий элементы');
writeln('исходного массива, расположенные между первым и вторым');
writeln('нулевыми элементами');
writeln;
writeln('Зададим максимальное число элементов исходного массива');
writeln;
repeat
write('максимальное число элементов равно  - ');
read(n);
 if (n<=1) or (n>10) then
  begin
   writeln('Ошибка. Число не более 10');
  end;
until (n>1) and (n<=10);
writeln('Заполним элементами массив');
writeln;
 for i:=1 to n do
  begin
   write('вводим''[',i,']''элемент массива, равный - ');
   read(a[i]);
  end;
 writeln;
 writeln('исходный массив');
 writeln;
  for i:=1 to n do
   write(a[i],' ');
  writeln;
  nl1:=0;
  nl2:=0;
   for i:=1 to n do
    begin
    if (a[i]=0) then
     begin
      nl1:=a[i];
     end;
    end;
      for i:=nl1+1 to n do
      begin
       if (a[i]=0) then
        begin
         nl2:=a[i];
        end;
        end;
       writeln('готовый массив');
       writeln;
        for i:=nl1 to nl2 do
         write(a[i],' ');
repeat
until keypressed;
end.

[Arigato]

Тут:

nl1:=a[i];

Надо присваивать не значение элемента массива, а его индекс.

А ещё, как только нашли нулевой элемент, надо прервать цикл, для чего есть команда break.