Найти номер первого и последнего нулевого элемента заданного массива - Free Pascal

Формулировка задачи:

Напишите программу, которая печатает номер первого и последнего нулевого элемента заданного массива или сообщение о том, что массив не содержит нулевых элементов.

Решение задачи: «Найти номер первого и последнего нулевого элемента заданного массива»

textual
                            Листинг программы 
                        

                            Program pos;
var a : array [1..100] of integer;
i, n, k, l : integer;
begin
write('Введите размер массива : ');
readln(n);
 
writeln('Введите элементы массива (через пробел) : ');
for i:=1 to n do begin
read(a[i]);
end;
 
writeln;
 
for i:=1 to n do
if a[i] = 0 then begin k:=i; {первый}
break;
end;
 
for i:=1 to n do begin
if a[i] = 0 then l:=i {Последний}
end;
 
if (k and l)>0 then begin 
writeln('Первая позиция нулевого элемента = ',k);
writeln('Последняя позиция нулевого элемента = ',l) end
else writeln('Не найдено нулевых элементов в данном массиве!');
 
end.
                        