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

[Lapp]

volvo сказал самое важное, я добавлю немного..

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