Дана матрица размера 5 x 10 Вывести количество столбцов, элементы которых возрастают

[fantanol]

Дана матрица размера 5 x 10 Вывести количество столбцов, элементы которых возрастают. Нужно что бы было с prucedure За ранее спасибо)
У меня есть уже код программы,но процедуру добавить не получается

const
  m=5;
  n=10;
var
  a:array[1..m,1..n] of integer;
  i,j,c:integer;
  ok:boolean;
begin
  randomize;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=random(50);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  c:=0;
  for j:=1 to n do begin
    ok:=true;
    for i:=1 to m-1 do
      if a[i,j]>=a[i+1,j] then ok:=false;
    if ok then inc(c);
  end;
  if c=0 then writeln('Возрастающих столбцов нет') else
  writeln('Возрастающих столбцов ',c);
  readln;
end.

[challengerr]

Код тот же самый только перед началом нужно написать procedure name;

В конце end нужно убрать точку, так как это будет конец процедуры и добавить

begin
name();
end.

[fantanol]

можешь все полностью написать?

[challengerr]

procedure name;
const
m=5;
n=10;
var
a:array[1..m,1..n] of integer;
i,j,c:integer;
ok:boolean;
begin
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
c:=0;
for j:=1 to n do begin
ok:=true;
for i:=1 to m-1 do
if a[i,j]>=a[i+1,j] then ok:=false;
if ok then inc(c);
end;
if c=0 then writeln('Возрастающих столбцов нет') else
writeln('Возрастающих столбцов ',c);
readln;
end;


begin
name();
end.

Если ваш код работает, то примерно так