Не могу разобраться в программе! Нужны изменения! - Turbo Pascal

Формулировка задачи:

Вот программа:

program des;
var 
j,km,kp:integer; 
a:array[1..20] of integer; 
begin 
km:=0;kp:=0;
randomize; 
for j:=1 to 20 do 
begin 
a[j]:=random(100)-50; 
writeln(' a[',j,']= ',a[j]);  
end; 
for j := 1 to 20 do 
begin 
if a[j]<0 then km:=km+1; 
if a[j]>0 then kp:=kp+1; 
end; 
write('Положительных: ',kp,' Отрицательных: ',km);
readln; 
end.

Работает она правильно, но,

нужно что бы в ней была процедура(ы) без параметров.... как это реализовать - не знаю, поэтому прошу помочь!

Придерживался этого задания:

Написать программу для вычисления количества положительных (додатніх) элементов массива (процедура без параметров).

Решение задачи: «Не могу разобраться в программе! Нужны изменения!»

textual
                            Листинг программы 
                        

                            program des;
 
var
  km, kp: integer; 
  a: array[1..20] of integer;
 
 
procedure fill;
var
  j: integer;
begin
  for j := 1 to 20 do 
    a[j] := random(100) - 50; 
end;
 
procedure print;
var
  j: integer;
begin
  for j := 1 to 20 do
    writeln(' a[', j, ']= ', a[j]);
end;
 
procedure count;
var
  j: integer;
begin
  km := 0;kp := 0;
  for j := 1 to 20 do 
  begin
    if a[j] < 0 then km := km + 1; 
    if a[j] > 0 then kp := kp + 1; 
  end;
  write('Положительных: ', kp, ' Отрицательных: ', km);
end;
 
begin
  fill;
  print; 
  count;
end.
                        