Pascal: массивы

[Juventus91]

преподаватель задал решить до понедельника задачу у меня ничего не получается:

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

[Скандербег]

Как один из вариантов:

program BinToDec;

uses Crt;

const
  b1 = 5; 

var
  bin : array[1..b1, 1..3] of byte;
  dec : array[1..b1] of byte;
  i, j : Integer;
  d : byte;

procedure Convert;
var
  i : Integer;
begin
  Randomize;
  for i := 1 to b1 do
    for j := 1 to 3 do
      bin[i, j] := Random(2);

{преобразование двоичных чисел в десятичные}
  for i := 1 to b1 do
    for j := 3 downto 1 do begin
      d := 4;
      if j = 2 then d := 2;
      if j = 3 then d := 1;
      dec[i] := dec[i] + bin[i, j] * d;
    end;

{несколько измененный вариант преобразования 
  for i := 1 to b1 do begin
    d := 1;
    for j := 3 downto 1 do begin
      if j < 3 then d := d * 2;
      dec[i] := dec[i] + bin[i, j] * d;
    end;
  end;
}
end;

begin
  Convert;
  WriteLn('binary array');
  for i := 1 to b1 do begin
    for j := 1 to 3 do
      Write(bin[i, j]);
    WriteLn;
  end;

  WriteLn;
  WriteLn('decimal array');
  for i := 1 to b1 do
    writeLn(dec[i])
end.

[Juventus91]

Спасибо! А как переделать в процедуру с параметрами?