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:
Мог ощибиться - под рукой нет Паскаля.