Прошу помочь с программой

[MASTER116]

Прошу сделать код до 26.12.13.
Дана целочисленная прямоугольная матрица. Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент (оформить в виде функции). 2) Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик (оформить в виде процедуры).
Спасибо!
Вот мой код, но он корявый, поэтому прошу написать новый код(полностью).
procedure perest(var a:matr);

procedure swap(var a, b: integer);
var T: integer;
begin
T := a; a := b; b := T;
end;

var
mas: array[1 .. n] of integer;
i, j, k: integer;
begin
for i := 1 to n do mas[i] := 0;

for i := 1 to n do
for j := 1 to m do
if (a[i,j] < 0) and not (odd(a[i,j])) then
mas[i]:=mas[i]+a[i,j];

for i := 1 to m do
for j := m downto i + 1 do
begin
if mas[pred(j)] > mas[j] then
begin
swap(mas[pred(j)], mas[j]);
for k := 1 to n do
begin
swap(a[pred(j), k], a[j, k]);
end;
end
end;
end;