Массив. Паскаль

[Fintos]

Вот все что есть
дан двумерный массив в каждом четном столбце посчитать произведение отрицательных чисел и среди этих произведений найти наименьшее.
на паскале надо написать программу и блок схему
ну не понимаю я этого!!!а требуют!!!

Информатика это, но я в жизни такова не проходил!!! дали задачу сказали решай, сроком на 24 часа, мозг пухнет от токого колва информации, читаю читаю читаю, а время идет и втыкаю, ну помогите кто может, выложите что и как в паскале надо написать членораздельно!!!
Ну вы же шарите и можете ну помогите!!! жертве знаний!!!
Выложите все в текстовом варианте как должно быть!!!
Мой мозг больше не выдержит!!! оч оч нужно!!!плиззз!!!

[VadEr]

const X=7; {массив 20 строк и столцов}
var
   mas :array[1..X,1..X] of integer; {основная таблица}
   pr  :array[1..Trunc(X/2)] of integer; {массив произведений отрицательных чисел по четным столбикам}
   i,j,k :byte; min :integer;
begin
    Randomize; {инициализируе генератор и забиваем массив случайными числами от -100 до 100}
    For i:=1 to X do
        For j:=1 to X do
            begin  {вероятность знака у числа 50%}
                 k := Random(2); {если k=0, то число отрицатльное}
                 if k=0 then mas[i,j] := -1*Random(101)
                 else mas[i,j] := Random(101); {иначе положительное}
            end;
{забиваем еденицами массив произведений}
    For i:=1 to Trunc(X/2) do
        pr[i] := 1;
{ищем отрицательные числа}
    For i:=1 to X do
        For j:=1 to X do {в четных столбцах}
            if ((i mod 2) = 0) and (mas[i,j] < 0) then
{и забиваем произведения в масив}
               pr[Trunc(i/2)] := pr[Trunc(i/2)]*mas[i,j];
{пусть min бует первый элемент массива произведений}
    min := pr[1];
    For i:=2 to Trunc(X/2) do
        If pr[i] < min then  {если следующий элемент меньше}
           min := pr[i]; {, то меняем их}
    Writeln('min = ',min);
    Readln;
end.