Pascal, Процедуры и функции((

[Грета]

Создать программы на процедуру или функцию.Задание:дана матрица вещественных чисел.Получить вектор из нулей и единиц по правилу:элемент равен 1,если соответствующая строка образует возрастающую последовательность,элемент равен 0 в противном случае.
Не могу понять как((пожалуйста,помогите с программой

[Mandrivnyk]

Ты, как и многие новички форума путаешь понятия "помогите решить" и "сделайте за меня".
Первое предусматривает участие с твоей стороны. Например, хотя бы какие-то попытки что-то сделать. Тогда тебе помогут -- объяснят, укажут на ошибки или просчеты, причем сделают это бесплатно.
Второе -- за деньги. Наемный труд должен быть адекватно вознагражден.

[Грета]

есть попытки.есть код,но я просто не пойму какую функцию использовать!вот код:

program my;
uses crt;
const
nn=30;
mm=40;
Type TStroka=array[1..mm] of real;
TMatrix=array[1..nn] of TStroka;
TVec=array[1..nn] of real;
var mas:TMatrix;
c:TVec;
i,n,m,j:byte;
begin
clrscr;
writeln('vector is matritsi...');
write('n=');readln(n);
write('m=');readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('mas[',i,',',j,']=');
readln(mas[i,j]);
end;

for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:3:0);
writeln;
end;

writeln;

for i:=1 to n do

begin
for j:=2 to m do
if mas[i,j]>mas[i+1,j] then c[i]:=1
else c[i]:=0;
if mas[i,j]<=mas[i-1,j] then c[i]:=0;

writeln('c[',i,']=',c[i]:1:3);
begin
for j:=2 to m do
if mas[i,j]>mas[i+1,j] then c[i]:=1
else c[i]:=0;
if mas[i,j]<=mas[i-1,j] then c[i]:=0;

writeln('c[',i,']=',c[i]:1:3);
readln;
end;
end.

[Грета]

просто необходимо чтобы было через функцию или процедуру.а какую функцию?какую процедуру?даже не знаю.вот