Сожмите линейный массив , удалив элементы предшествующие минимальному элементу .

Min:=а
k:=1
j:=1
for i:=2 to n do
if a[i]< min then
begin
min:=a[i]
k:=i
end
if k>1 then
for i:=k to n do
begin
a[j]:=a[i]
inc(j)
end
writeln(результат)
for i= 1 to n-k+1 do
write(a[i]:3);шт