procedure _copy(FileNameIn: string ;// путь к входному файлу
 const FileNameOut: string;         // путь к выходному файлу
  place,   // позиция, откуда начать копировать
    tocopy: integer); // сколько символов копировать
var
  fin, fout: System.Text;
  _in, _out: string;
  s: string;
begin
  If not FileExists(FileNameIn) then
    exit;
  AssignFile(fin, FileNameIn);
  reset(fin);
  AssignFile(fout, FileNameOut);
  rewrite(fout);
  _in:='';
  _out:='';
  while not EOF(fin) do begin
    readln(fin, _in);
    _out:=_out+_in;
  end;
  s:=copy(_out, place, tocopy);
  writeln(fout, s);
  CloseFile(fin);
  CloseFile(fout);
end;