[Pascal ABC.NET] Модуль

[0525]

Помогите дописать модуль.
Программа:

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.

Написал все, что понял по модулю:

const n=5;
type mas=array[1..n] of integer;
procedure 123(a:mas; x:integer);
implementation
procedure 123(a:mas; x:integer);
var i,k,min:integer;
begin
for i:=1 to n do

Несовсем понимаю, что в нем должно быть. Если можно, то с комментариями.

[digitalis]

А что в данном случае подразумевается под модулем? И что желаем сделать с работающей (надеюсь) программой, чтоб она стала модулем?

[0525]

Сам модуль должен заменять все элементы массива стоящие после минимального нулями.