В одномерном массиве из 10 элементов определить местоположение минимального элемента. Обнулить элементы стоящие до него , но не сам этот элемент — Pascal(Паскаль)

program n11;
var
a:array[1..100] of integer;
n,i,min,l:integer;
begin
writeln('vvedit rozmir massiva');
readln(n);
randomize;
writeln('massiv');
for i:=1 to n do begin
a[i]:=random(100)-30;
write(a[i],' ')
end;
writeln;
min:=32768;
for i:=1 to n do begin
if a[i]<min then begin min:=a[i];  l:=i;end;
end;
writeln('polycheniy massiv');
for i:=1 to l-1 do begin
a[i]:=0;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.