Проблемы с 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]

Ну насчет,того, что я заменил k на p,там уже я описался, там везде надо было заменить на р ,да и ты прикрасно понял,плюс, если ты посмотриш я на 1 присваивание совершаю меньше(убралось присваивание вне цикла).Насчет begin-end просто иногда может случиться что у тебя в конце процедуры соберется 5 а то и более end,поэтому,если поправила не забывать,то можно и в некоторых местах begin-end убирать.

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

Сообщение отредактировано: Krjuger - 13.05.2009 19:08