Работа с динамическими списками

[SnegovikON]

Описать программу, которая удаляет из списка L за каждым вхождением элемента Е один элемент, если такой есть и он отличен от Е.

Задача уже готова, тока я ввожу список L с клавиатуры, а нужно чтобы он читал его из текстового файла. Помогите исправить...Срочно надо...

program seven;
type pt = ^elem;
elem = record
data:string;
next : pt;
end;
procedure addItem(var list: pt; item: string);
begin
if list=nil then begin new(list);
list^.next:=nil;
list^.data:=item;
end else begin
addItem(list^.next,item);
end;
end;
procedure deleteElement(var list: pt; item : string);
var
tmp: pt;
begin
if list<>nil then begin
if list^.next<>nil then begin
if (list^.data=item) and (list^.next^.data<>item) then begin
list^.next^.data:='';
tmp:=list^.next^.next;
dispose(list^.next);
list^.next:=tmp;
end;
deleteElement(list^.next,item);
end;
end;
end;
procedure printList(list: pt);
begin
if list<>nil then begin
WriteLn(list^.data);
printList(list^.next);
end;
end;
procedure freeMemory(var list: pt);
begin
if list<>nil then begin
freeMemory(list^.next);
list^.data:='';
dispose(list);
list:=nil;
end;
end;

var
E: string;
element: string;
spisok: pt;
F:text;
begin
spisok:=nil;
Write('E=');
ReadLn(E);
WriteLn('Vvodite elementi spiska, pustaya stroka - okonchanie vvoda');
repeat
readln(element);
addItem(spisok,element);
until element='';
deleteElement(spisok,E);
WriteLn('');
printList(spisok);
freeMemory(spisok);
readln;
end.

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

[zhan313]

var f:text;

assign(f,'text.txt'); reset(f);
while not eof(f) do
  begin
     readln(f,element);
     additem(spisok,element);
  end;
close(f);