Удалить строчку из файла - задачка

[юра 3]

Удалить строчку из файла - задачка

Помогите решить задачу,а то у меня чуть-чуть не получается.
Вот задача:
Дан текстовый файл. Удалить из него последнюю строку.

 

[ummasha]

Выложите свой вариант решения.

 

[юра 3]

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.

 

[Vladimir_S]

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.

var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
ReWrite(s);
REPEAT
ReadLn(f,w);
IF (NOT EoF(f)) THEN
WriteLn(s,w);
UNTIL EoF(f);
Close(f);
Close(s);
END.

 

[ummasha]

Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?

 

[Vladimir_S]

Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?

Не совсем. Она просто строчку за строчкой перегоняет из первого файла во второй, кроме последней строки.

 

[ummasha]

Поняла