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

Вообще задача для регулярок, но поскольку вы в Дельфи вопрос задали то и получайте решение на Дельфи:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

Var
  SrcFile,DstFile: TStringList;
  i: Integer;
  S: String;
begin
 SrcFile := TStringList.Create;
 SrcFile.LoadFromFile('C:\1\1.txt');
 DstFile := TStringList.Create;
 for i := 0 to SrcFile.Count - 1
 do begin
    S := SrcFile.Strings[i];
    if Copy(S, Length(S), 1) = '1'
    then S := '_3dpoly ' + Copy(S, 1, Length(S) - 2);
    S := StringReplace(S, ' ', ',', [rfReplaceAll]);
    DstFile.Add(S);
    end;
 DstFile.SaveToFile('C:\1\1_1.txt');
 DstFile.Free;
 SrcFile.Free;
end.