Написать программу в которой ниже представленный код является подпрограммой

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Press Enter');
readln;
for j:=1 to n do
 begin
  k:=0;
  i:=1;
  while(i<=m)and(k=0) do
  if a[i,j]<0 then k:=1
  else i:=i+1;
  if k=1 then
  for i:=1 to m do
  a[i,j]:=0
 end;
writeln('Замена на 0 столбцов с отрицательными элементами:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
write('Press Enter');
readln
end.

uses crt;
 
const nmax=20;
 
type    
  matrix = array[1..nmax,1..nmax] of integer;
  
procedure entermatrix(var a : matrix; m, n : byte);
var
  i, j : byte;
begin
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;  
 
procedure editmatrix(var a : matrix; n, m : byte);
var
  i, j, k : byte;
begin
for j:=1 to n do
 begin
  k:=0;
  i:=1;
  while(i<=m)and(k=0) do
  if a[i,j]<0 then k:=1
  else i:=i+1;
  if k=1 then
  for i:=1 to m do
  a[i,j]:=0
 end;
end;
 
procedure printmatrix (a : matrix; n, m : byte);
var
  i, j : byte;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
end;
  
var a:matrix;
    m,n:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
entermatrix(a, m, n);
write('Press Enter');
readln;
editmatrix(a, m, n);
writeln('Замена на 0 столбцов с отрицательными элементами:');
printmatrix(a, m, n);
write('Press Enter');
readln
end.