Программа и процедура

[Волк]

Доброго вам времени суток!Помогите пожалуйста я написал вот это задание:"составить процедуру,обнуляющую столбец матрицы,если соответствующий столбец матрицы неупорядочен."Только вместо процедуры использовал просто тело программы:Вот код:

program ss;
uses crt;

var mas:array [1..100,1..100] of integer;
    n,m,j,i,k:integer;
begin
clrscr;
writeln('vvedite kolichestvo strok and stolbcov');
readln(n,m);
for i:=1 to n do
    for j:=1 to m do
    readln(mas[i,j]);
for j:=1 to m do
    for i:=1 to n do begin
    if mas[i,j]>mas[i+1,j] then
      for k:=1 to n do
           mas[k,j]:=0;
            break;
           end;
for i:=1 to n do
    for j:=1 to m do
    if j=m then
       writeln(mas[i,j])
       else
       write(mas[i,j],'  ');
       readln;
end.

Помогите преобразовать мою программу в процедуру!

[Zer0]

Да пожалуйста

program ss;
uses crt;

type matrix = array [1..100,1..100] of integer;
var mas:matrix;
    n,m,j,i:integer;

procedure SetMeNull(n,m:integer; var mt:matrix);
var i,j,k:integer;
begin
for j:=1 to m do
    for i:=1 to n-1 do begin
    if mt[i,j]>mt[i+1,j] then
      for k:=1 to n do
           mt[k,j]:=0;
            break;
           end;
end;

begin
clrscr;
writeln('vvedite kolichestvo strok and stolbcov');
readln(n,m);
for i:=1 to n do
    for j:=1 to m do
    readln(mas[i,j]);

SetMeNull(n,m,mas);

for i:=1 to n do
    for j:=1 to m do
    if j=m then
       writeln(mas[i,j])
       else
       write(mas[i,j],'  ');
       readln;
end.

[Niro]

type mytype = array [1..100,1..100] of integer;
      var   n,m,j,i,k: integer;

      procedure aaa(var mas: mytype);
      begin
         {тело процедуры}
      end;     
BEGIN
   aaa(mas); {вызов процедуры}
END.

Zer0, опередили)