Как переписать все строки, начиная, с определенного символа в другой файл ? Опции

[Nemo]

Код

Uses
      CRT, Dos;
const
      FName1 = 'OutPut.txt';
      FName2 = 'Input.txt';
var
       F1, F2  : file;
       buf      : pointer;
       count  : longint;
       num    : longint;
begin
       WriteLn('Введите номер символа:');
       ReadLn(num);
       Assign(F1, FName);
       Assign(F2, FName);
       Reset(F1, 1);
       Reset(F2, 1);
       Seek(F1, num-1);
       count:=FileSize(F1)-Num+1;
       GetMem(buf, count);
       BlockRead(F1, buf^, count);
       BlockWrite(F2, buf^, count);
       FreeMem(buf, count);  
       Close(F1);
       Close(F2);
end.

PS:
Мог ощибиться - под рукой нет Паскаля.

[trminator]

Код

var in_f, out_f : text;
   c, ToFind : char;
begin
 assign(in_f, 'c:tempFile2.txt'); reset(in_f);
 assign(out_f,'c:tempFile2.out'); rewrite(out_f);
 c:=#0; write('Ведите символ > '); readLn(ToFind);

 while (c <> ToFind) and (not eof(in_f))  do read(in_f, c); {Пропускаю ненужные символы}
 while not eof(in_f) do
 begin read(in_f,c); write(out_f, c) end;

 close(in_f); close(out_f)
end.

Может, подойдет? Только, похоже, тебе что-то немного другое нужно. Но это - то, про что ты спрашиваешь в этой теме