Вот Вам программа которая удалит любую по номеру строку
Код
procedure DelStrText(name: string; dels: string);
var
f1 : text;
f2 : text;
s : string;
Atr: word;
begin
ASSIGN(f1,name);
ASSIGN(f2,'TEXTFILE.DSF');
REWRITE(f2);
GETFATTR(f1,atr);
SetFAttr(f1,Hidden);
{$I-}
RESET(f1);
while not EOF(f1) do
begin
readln(f1,s);
If s<>DelS then writeln(f2,s)
end;
CLOSE(f1);
CLOSE(f2);
erase(f1);
rename(f2,name);
SetFAttr(f2,atr);
{$I+}
If IoResult<>0 then writeln('ERROR: ',IoResult)
end;
end.
после выполнения этой процедуры строка Dels "удалится"
можно изменив эту процедуру сделать так, что бы
она удаляла по номеру!