type
procedure do_writeport_procedure(do_data_view: array of integer);
//*  프로시저의 선언


implementation
uses
{$r *.dfm}
procedure tform1.do_writeport_porcedure(do_data_sub_view:array of integer);  //* 프로시저 시작
var
do_data_sub_view:array[0..31] of integer;
begin
if do_data_sub_view[0]=1 then edit1.text:=inttostr(1)
                                     else edit1.text:=inttostr(0);
end;    //*프로시저 끝

var   //* 본문의 선언문
do_data_view:array[0..31] of integer;

begin
do_data_view[0]:=1;
do_data_view[1]:=1;

do_writeport_porcedure(do_data_view:array of integer);
end;


이렇게 했는데 인수전달이 제대로 안되고 있습니다.
왜안돼는지 꼭 알려주세요