until uml=0;
       inc(i);
       lines[i]:=s;
     end;
  end;
 numlines:=i;
 close(textf);
 writeln('GetLines: ',numlines,' lines.');
end;
(* ----------------------------------------------------------------- *)