program comments; { Input File - вводимое имя с клавиатуры существующего файла, а имя указанного в Output File - это имя нового файла, который будет создан } var inp,out:Text; i:Integer; s,p1,p2:String; begin Write('Input File: '); ReadLn(p1); Write('Output File: '); ReadLn(p2); Assign(inp,p1); Assign(out,p2); Reset(inp); Rewrite(out); i:=1; while not eof(inp) do begin ReadLn(inp,s); WriteLn(out,'{',i,'}',s); Inc(i); end; Close(inp); Close(out); end.