На "псевдоязыке" это так:
Код:

1. Открыть файл R, в котором надо сделать изменения, на чтение
2. Открыть временный файл T, на запись
3. i = 0;
4. Пока не конец файла R
5. Считать строку S из файла (ReadLn в pascal), увеличить i на 1
6. Если i = 2 (т.е. это вторая строка), вывести в T её замену,
иначе вывести в Т считанную S (WriteLn в pascal)
7. Повторить с 4-го пункта
8. Закрыть T и R
9. Удалить R
10. Переименовать T в R.