В массиве все элементы, стоящие после минимального, поменять на 0. Пример:

Const n=5;

var   
a:array[1..n] of integer;   
i,k,min:integer;

Begin
for i:=1 to n do begin   
read(a[i]);
end;
min:=a[1];
for i:=1 to n do    begin         
    if mingt;a[i] then     begin               
       min:=a[i];                 
       k:=i;           
    end;   
end;
for i:=k+1 to n do    a[i]:=0;
writeln('Упорядоченный массив:');
for i:=1 to n do   
write(a[i]+' ');
end.