подпрограммма обнуления отрицательных чисел массива Pascal ABC

[программирование]

добрый вечер, программисты. помогите, пожалуйста, написать программу, а вернее немного дописать (так как работает она правильно, но нужно сделать её в виде подпрограмммы).

само задание

написать подпрограмму обнуления в массиве отрицательных чисел.
вот программа на языке Pascal ABC

uses crt;
var Q : array[1..30] of integer;
       i, j, n: integer;
begin
 clrscr;
 write('N: ');
 readln(n);
 for i:=1 to n do
  begin
   readln(Q[i]);
   if q[i]>=0 then
    inc(j)
   else
    q[i]:=0;
  end;
 writeln;
 for i:= 1 to n do
  write (' ',Q[i]);
 writeln;
 writeln('Количество оставшихся элементов = ',j);
 readln;
end.

нужно сделать эту программу в виде подпрограммы (процедуры или функции).

заранее, спасибо.

[Stilet]

uses crt;
procedure b;
var Q : array[1..30] of integer;
       i, j, n: integer;
begin
 clrscr;
 write('N: ');
 readln(n);
 for i:=1 to n do
  begin
   readln(Q[i]);
   if q[i]>=0 then
    inc(j)
   else
    q[i]:=0;
  end;
 writeln;
 for i:= 1 to n do
  write (' ',Q[i]);
 writeln;
 writeln('Количество оставшихся элементов = ',j);
 readln;
end; begin b; end.