Ну и? Куча ссылок, а если на синию надпись нажать так есче и название поправит... http://vizbe.net/bvsDupDelet.zip
Code: Program dupl; var i:integer; s,dup:string; a:text; begin dup:=''; assign(a,'tvoifile.txt'); rewrite(a); for i:=0 to 100 do begin readln(a,s); if length(dup)<length(s) then write(a,dup); end; end. Кидаешь этот код в *.pas файл, а рядом tvoifile.txt. Запускаешь *.pas, получаешь файл. Как-то так.