program statistics;

var f:text;
    text,n1,n2:string;
    x,y:integer;

begin
              writeln ('enter number of dj...');
              readln (text);
              text:='c:\ps\txt\demo98'+text+'.txt';

              assign (f,text);
              reset (f);

              y:=0;
              n2:=' ';

              repeat

              y:=y+1;

              n2:=n1;
              readln (f,n1);

              until copy(n2,0,5)='Name:';

{next readln is the 1st line of the list!!!}
{y marks the start}

              x:=-1; {not 0 cause last line is empty!}
              repeat

              x:=x+1;
              readln (f,n1);
              writeln (n1);

              until copy(n1,0,5)='';

              writeln (x);
              writeln (n1);
              writeln (x);

              close (f);
              readln;

end.