Списки в Delphi

[Razdolbam]

Сформировать список строк L1, считав его из файла input.txt. Для каждой строки списка найти значение некоторой характеристики. Занести вычисленное значение в список L2 нетипизированных указателей. Удалить из списка строк элементы, удовлетворяющие некоторому условию. Во вновь получившемся списке L1 сравнить характеристику i-го элемента S со значением i-го элемента списка L2. Если эти значения совпадают, добавить в список строк L3 элемент, состоящий из строки S и ее характеристики. Список L3 сохранить в файле output.txt.

Характеристика: сумма всех чисел, встречающихся в строке
Условие: значение характеристики не содержит цифры 5

Мои наброски

uses
  SysUtils,
  classes;

var l:TstringList; s:string; i,k:integer;
begin
   l:=TstringList.Create;
   l.Duplicates:=DupAccept;
   l.LoadFromFile('input.txt');
   if i:=1 to n do
   begin
    new(p); p^:=i; l.Add;
   end;
   for i:=0 to l.Count-1 do
   begin
    p:=l.Items[i]; write(p^,' ');
   end;
   writeln;
   ch:=0;
   while l.Count<>1 do
   begin
    i:=ch;
    while i<l.Count<>1 do
    begin
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.