Проблемы с Procedure, проблема с передачей чисел из процедуры в программу Опции

[asduj]

Имеется задача: создать 3 двумерных массива и найти произведение столбцов массивов. Произведение записать в одномерный массив и вывести результат под соответсвующими столбцами. Решить с помощью Procedure.

Program Laba_14;
const
n=20;
type  z=array [1..n,1..n] of integer;
      u=array [1..n] of integer;
Var   a,b,c,i,j,k:integer;
      H:z;
      V:u;
Procedure Up(B:z;n:integer; var A:u);
var i,j,k:integer;
begin
k:=1;
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  k:=k*B[i,j];
                                  end;
                 A[i]:=k;
                 k:=1;
                 end;
end;
Procedure Down(n:integer; Var b:z);
var i,j:integer;
begin
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  B[j,k]:=random(9);
                                  end;
                 end;
end;
begin
randomize;
Write('n=');
readln(a);
for i:=1 to 3 do begin
                 Down(a,H);
                 For j:=1 to a do begin
                                  for k:=1 to a do begin
                                                   Write(H[k,j]:2);
                                                   end;
                              writeln;
                              end;
                 writeln;
                 Up(H,a,V);
                 for c:=1 to a do begin
                                  write(V[c]:2);
                                  end;
                 writeln;
                 writeln('-------------------');
                 end;
readln;
end.

Программа выполняется правильно, но проблема в том, числа массивов, созданные рандомно, неправильно передаются в основную программу, хотя в самой процедуре они нормальные. Под "неправильно" передаются я имею ввиду то, что:
1) числа в программе отличаются от чисел в процедуре
2) при передаче чисел большинство строк остаются заполненные нулями ( во все 3 массивах только одна из строк не равна нулю), хотя при проверке в процедуре они таковыми не являются.
Прошу помощи

[Krjuger]

Скажу немного попроще,наверно.

 
Procedure Down(n:integer; Var b:z);
var i,j:integer;
begin
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  B[j,k]:=random(9);
                                  end;
                 end;
end;

Скажем так ты задумайсяу тебя счетчик по i,j,а "K" не меняется,зачем оно тебе вообще нужно.Более того у тебя не обьявленно начальное значиние "к",паскаль любит запихивать туда всякий мусор который тебя потом можеш удивить.Насчет построения бы бы это сделал что то вроде:

 
Procedure Down(n:integer; Var b:z);
var i,j:integer;
 begin
    for i:=1 to n do 
      for j:=1 to n do 
         B[i,j]:=random(9);
  end;

В процедуре Up ты повторно обьявляеш переменную "K",зачем? Она же у тебя обьявлена в самой программе.Еще как совет,обычно S -сумирование,а P-произведение.

 
Procedure Up(B:z;n:integer; var A:u);
var i,j,P:integer;
begin
for i:=1 to n do 
 begin
  k:=1;
  for j:=1 to n do 
     begin
     P:=P*B[j,i];{как я понимаю тебе надо все элементы в столбше перемножить,а ты меремножаеш все элементы строки}
     end;
   A[i]:=k;
   end;
end;

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