В массиве все элементы, стоящие после минимального, заменить на 0. Пример: из массива A[5]: 3 2 1 5 6 должен получиться массив 3 2 1 0 0 решить в Pascal

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 min>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.