Код:
var
f: TextFile;
f2: TextFile;
s: String;
begin
AssignFile(f, 'C:\1.txt');
AssignFile(f2, 'C:\2.txt');
{$I-}
Reset(f);
if(IOResult <> 0) then
ReWrite(f);
{$I+}
ReWrite(f2);
While(not(EOF(f)) do begin
ReadLn(f, s);
s:=Copy(s, 1, Pos(' ', s));
Write(f2, s);
end;
Писал на коленке, возможны ошибки, но думаю разберетесь...