Заменить все элементы массива, стоящие после минимального, нулями

Program mas_1234;
const n=5;
var a:array[1..n] of integer;
    i,k,min:integer;
Begin
  for i:=1 to n do begin 
  write('a[',i,']');
  readln(a[i]);
  end;
  min:=a[1];
    for i:=1 to n do 
     if min>a[i] then 
     min:=a[i];
    k:=0;
      for i:=k+1 to n do 
        a[i]:=0; 
     writeln('Упорядоченный массив:');  
     for i:=k+1 to n do  writeln('a[',i,']=',a[i]);
   
     
  end.

Program mas_1234;
        uses
            crt;
        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.