Проблемы с 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 массивах только одна из строк не равна нулю), хотя при проверке в процедуре они таковыми не являются.
Прошу помощи

[asduj]

2. кошмарное форматирование - кто сказал, что сдвигать надо под слово begin?? Сдвигать надо на фиксированное число позиций (выбери себе - 4 или 2 обычно рулят). То же самое с var, type и const.
3. единичный оператор совершенно необязательно (и часто вредно) заключать в begin/end.

Так форматирую, потому что привык когда после begin начинается "программа", сразу видно что находится между. Учту
А пишу везде begin и end, потому что часто туда приходится чего-нибудь добавлять.

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;

К - перемножает элементы столбца и передает их массиву, после чего его нужно снова его сделать равным 1. Тут без разницы какой буквой писать. Зачем тогда вообще заменять К на Р лишь в цикле? Нужно заменить либо везде, либо вообще не заменять А иначе массив А всегда будет равен 1, а Р будет равно произведению всех элементом.
А то, что я потворно объявил К ни на что не влияет, это переменная процедуры, а не всей программы. Такой логикой можно было не объявлять i и j. Так что здесь все правильно.

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

Описался - вот где проблема была. Да и с индексами промахнулся Спасибо за помощь