[Snake22]

Код:

AssignFile(f,'c:\1.txt');
Reset(f);//открываем фал для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,i);
inc(i);//увеличиваем считанное знаение
Append(f);//открываем файл для дозаписи
WriteLn(f,i);
CloseFile(f);