Удаление из файла

[Шурик]

Здравсвуйте. Не подскажите как удалить из файла строку, удовлетворяющую условию.

Добавление в файл идет следующим образом:
var
f:textfile;
fname:string;
x1,x2,x3,x4,x5,x6:string;
begin
x1:=labelededit1.Text;
x2:=labelededit2.Text;
x3:=labelededit3.Text;
x4:=labelededit4.Text;
x5:=labelededit5.Text;
x6:=combobox1.Text;

fname:=('pro.dat');
AssignFile(f,fname);

Append(f);
writeln(f, 'Личные данные');
writeln(f, x1,' ',x3,' ',x2);
writeln(f, 'Год рождения');
writeln(f, x4);
writeln(f, 'Год окончания школы');
writeln(f, x5);
writeln(f, 'Общежитие');
writeln(f, x6);
writeln(f,'');
CloseFile(f);
end;

[Evgeniy26]

http://www.programmersforum.ru/showthread.php?t=6187

[MalCer]

Удалить строку можно при помощи ф-ии Delete

[Шурик]

а как удалить строку в которой допустим есть цифра 5?

[Шурик]

Если не трудно напишите плиз примерчик, как сделать обход по файлу и удалить из него строки где есть цифра 5.