найти минимальный положительный элемент в четных столбцах !!!Turbo pascal плиз напишите программу!

ссылка на нормальный код - http://pastie.org/2669314

{программа, которая находит минимальный положительный элемент в четных столбцах }

program p64889989;
const m = 5; // размерность матрицы
maxValue = 50;
var matrica : array[1..m,1..m] of integer;
i,j:integer;
elem:integer;
begin
writeln;
// заполним матрицу случайными числами
randomize;
for i:=1 to m do
for j:=1 to m do
begin
matrica[i,j] := random(maxValue*2)-maxValue; // диапазон от -maxValue до +maxValue
end;

// j - номер столбца, i - номер строки

// вывод матрицы
for i:=1 to m do
begin
for j:=1 to m do
begin
write(matrica[i,j],' ');
end;
writeln;
end;

//поиск минимального положительного элемента
// рассматриваем только четные столбцы
//
elem := maxValue; // инициация элемента, в котором будет храниться искомое значение
j := 2;
for i:=1 to m do
begin
while (j<=m) do
begin
if ((matrica[i,j]<elem)>0)) then elem := matrica[i,j];
j:=j+2
end ;
j:=2;
end;
Writeln('minValue = ',elem);
end.