Передача параметра в процедуру

Type
    Str25    = String[25];
    Str21    = String[231];
                {}    Tinf=integer; {тип данных, который будет храниться в элементе стека}
        {}    List=^TBookRec; {Указатель на элемент типа TBookRec}
        list_of_names = array[0..8] of string;
    TBookRec = Record
                Title, Author, ISBN : Str25;
                Price : Real;
                strnew:str21;
  {} data:TInf;  {данные, хранимые в элементе}
  {} next:List;  {указатель на следующий элемент}
               End;    
Var
    myBookRec : TBookRec;
    the_list: list_of_names;
    i:integer;
     procedure read_list(the_list: list_of_names;i:integer{Min: real ; N: Word});
begin
  the_list[5] := 'John';
  the_list[0] := 'Newborn';
while(i<3)do    begin
  readln(the_list[i]);
  i:=i+1;
  end;
  {while(i<3)do     begin
  i:=0;
  writeln(the_list[i]);
  i:=i+1;
                end;  }
end;
procedure Wiev_list(the_list: list_of_names;i:integer{Min: real ; N: Word});
begin
  {the_list[5] := 'John';
  the_list[0] := 'Newborn';}
while(i<3)do    begin
  write(the_list[i]);
  i:=i+1;
  end;end;
Begin
    myBookRec.Title  := 'Some Book';
    myBookRec.Author := 'Autor:ADOquery(SQL)';
    myBookRec.ISBN   := '0-12-345678-9';
    myBookRec.Price  := 25.5;
    Writeln('Here are the book details:');
    Writeln;
    Writeln(' Entered data: ', myBookRec.Title);
    Writeln('Author: ', myBookRec.Author);
    Writeln('ISBN:   ', myBookRec.ISBN);
    Writeln('Price:  ', myBookRec.Price);
      Readln(myBookRec.data);
            Readln(myBookRec.Strnew);
        Writeln(' Entered data: ', myBookRec.data);
        Writeln(' Entered data: ', myBookRec);
        {the_list[i]:=0;}
        {}read_list(the_list,0);
        Wiev_list(the_list,0);
        writeln('');
    Readln;{1}
End.