Turbo Pascal. Двумерные массивы

[cdc]

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

P.S.: это одна задача, помогите, пожалуйста, решить её))
Сам алгоритм есть, но нужно оформить в виде функции и в виде процедур

program xxx;
uses crt;
var
a:array [1..12, 1..10] of integer;
i, l, p, s, j, x, y, n, k: integer;
m, d:boolean;
begin
clrscr;
randomize;
writeln(' Введите размер матрицы');
readln(n, k);
clrscr;
for i:= 1 to n do
for j:= 1 to k do
begin
a[i, j]:=Random(10)-5;
write(a[i, j], ' ');
end;
for i:=1 to n do
begin
l:=1;
s:=0;
for j:=1 to k do
begin
if j<>k then
for x:=j+1 to k do
if a[i, j]=a[i, x] then
begin
m:=false;
if j<>1 then
begin
for y:=1 to j-1 do
if a[i, y]=a[i, j] then
m:=true;
end;
if m<>true then
l:=l+1;
end;
if l<>1 then
s:=s+1;
l:=1;
end;
a[i, k+1]:=s;
end;
for j:=1 to n-1 do
for x:=1 to n-1 do
begin
if a[x, k+1]>a[x+1, k+1] then
begin
for y:=1 to k+1 do
begin
a[n+1, y]:=a[x, y];
a[x, y]:=a[x+1, y];
a[x+1, y]:=a[n+1, y];
end;
end;
end;
writeln(' ');
writeln(' Упорядоченный массив');
writeln(' ');
for i:=1 to n do
for j:=1 to k do
if j<>k then
write(a[i, j], ' ')
else
writeln(a[i, j]);
for i:=1 to n do
begin
for j:=1 to k do
begin
if a[i, j]<0 then d:=true;
end;
l:=1;
if (d=false) and (y=1) then
begin
p:=j;
l:=l+1;
break
end
else p:=0;
end;
writeln(p);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.