В массиве все элементы, стоящие после минимального, заменить на 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.