исправьте задачу. Работа с динамическими списками

[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.

[SnegovikON]

там nextt; - без смайла

[SnegovikON]

помогите пож-ста(((