[Страдалецъ]

Ну вот примерно так:

Код:

programm CutFile;
var
 f1,f2: Text;
 S: String;
begin
 if ParamCount < 2 
 then begin
        WriteLn('Ошибка. Неверное количество параметров.'); 
        WriteLn('Пример запуска: CutFile srcfile.txt dstfile.txt');  
        Exit;
        end;
 AssignFile(f1, ParamStr(1));
 Reset(f1);
 AssignFile(f2, ParamStr(2));
 Rewrite(f2);
 while not Eof(f1)
 do begin
     ReadLn(f1, S);
     WriteLn(f2, Copy(S,1,6))
     end;
 CloseFile(f1);
 CloseFile(f2);
end.