program readarray(input,output);

 type
    node = record
          rhsn : integer;
          rhstype : array[1..10] of integer;
          rhsindex : array[1..10] of integer;
          end;
    treetype = array [1..100] of node;

 var
  tree : treetype;
    f1 : text;
    i : integer;
    j,k,m: integer;
    blank : char;
  begin
    i := 0;
    assign(f1,'a:array.dat'); reset(f1);
    while not eof(f1) do begin
          while not eoln(f1) do
              begin
                   i:= i+1;
                   read(f1,tree[i].rhsn);
                   for j:= 1 to tree[i].rhsn do
                       read(f1,blank,tree[i].rhstype[j]);
                   for j:= 1 to tree[i].rhsn do
                       read(f1,blank,tree[i].rhsindex[j]);
              end;
          readln(f1)
      end;
      close(f1);

    writeln('i read this many tree nodes =',i);
    for k:=1 to i do begin
        writeln('k=',k);
        writeln('rhsn=',tree[k].rhsn);
         for j:= 1 to tree[k].rhsn do
                    begin
                    writeln('rhstype[',j,']=',tree[k].rhstype[j]);
                    end;

                for j:= 1 to tree[k].rhsn do
                   begin
                    writeln('rhsindex[',j,']=',tree[k].rhsindex[j]);
                    end;
            end;
end.