Прочитать однонаправленный список из файла, удалить из него элемент и записать назад в файл

{Unit ModilSpisok;
interface}
type
  Tdata = integer;
  link = ^node;
  Node = record
    info: integer;
    next: link
  end;
  TList = record
    PFirst, PLast: Link;
  end;
{procedure Create(var aList: TList);
procedure Print(const aList: TList);
procedure Del(var t: Tlist; var m: link);
procedure Add(var s: Tlist; A: integer);
procedure Free(var aList: TList);
Procedure Read(const K:string;var alist:Tlist;
procedure Resul(aList: TList);
 
implementation}
procedure Add(var s: Tlist;var A: integer);
var
  t, p: link;
begin
  New(T);
  T^.info := A;
  T^.Next := nil;
  if s.PFirst = nil then
    S.PFirst := T
  else
    S.PLast^.next := T;
  s.PLast := T;
end;
Procedure Read(var alist:Tlist);
var
f:text;
d:integer;
begin
assignfile(f,'txt');
reset(f);
while not eof(f) and not eoln(f) do begin
read(f,d);
Add(alist,d);
end;
close(f);
end;
procedure Create(var aList: TList);
begin
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
procedure Print(aList: TList);
var
  PElem: Link;
begin
  if aList.PFirst = nil then begin
    Writeln('Список пуст.');
    Exit;
  end;
  
  PElem := aList.PFirst;
  while PElem <> nil do 
  begin
    Write(PElem^.Info,' ');
    PElem := PElem^.Next;
  end;
  writeln;
end;
procedure Resul(aList: TList);
var
f1:text;
  PElem: Link;
begin
assignfile(f1,'out');
rewrite(f1);
  if aList.PFirst = nil then begin
    Writeln('Список пуст.');
    Exit;
  end;
  
  PElem := aList.PFirst;
  while PElem <> nil do 
  begin
    Write(F1,PElem^.Info,' ');
    PElem := PElem^.Next;
  end;
  writeln;
  close(f1);
end;
 
procedure Del( var m: link);
var
  p: link;
begin
  if m<>nil then begin    
  p:=m;
  m:=p^.next;
 Dispose(p);
  end;
end;
 
procedure Free(var aList: TList);
var
  PNext, PDel: Link;
begin
  PNext := aList.PFirst;
  while PNext <> nil do 
  begin
    PDel := PNext;
    PNext := PNext^.Next;
    Dispose(PDel);
  end;
  Create(aList);
end;
 
var
  pr,p: link;
  i: integer;
  m,t: integer;
  l: Tlist;
 
{Create(L);
Read(L);
Print(l);
writeln('Введите число ,которое нужно удалить из спиcка');
readln(M);
Pr:=nil;
    P := L.PFirst; 
    while P <> nil do begin
      if P^.info = M then
      begin
      Del(Pr);
    end;
    Print(L);
    Resul(l);
    Free(L);
    Writeln('Память очищена.');
end.}
 
begin 
 
Create(L); 
Read(L); 
Print(l); 
writeln('Введите число ,которое нужно удалить из спиcка'); 
readln(M); 
i := 0; 
Pr := nil; 
P := L.PFirst; 
while P <> nil do begin 
if P^.info = M then begin 
Inc(i); 
if i > 1 then Write(', '); 
Del(Pr); 
if Pr <> nil then 
P := Pr^.Next 
else 
P := L.PFirst; 
end else begin 
Pr := P; 
P := P^.Next; 
end; 
end; 
Print(L); 
Resul(l); 
Free(L); 
Writeln('Память очищена.'); 
end.

begin
  var l := new List<integer>;
  var t : Text;
  var d : Integer;
  Reset(t, 'txt');
  while Not EOF(t) and Not EOLN(t) do
    begin
      Read(t, d);
      l.Add(d);
    end;
  Close(t);
  
  Write('список: '); foreach var v in l do Print(v); WriteLn;
  
  var n := ReadlnInteger('Введите число ,которое нужно удалить из спиcка');
  while l.IndexOf(n) > 0 do l.RemoveAt(l.IndexOf(n));
  
  Write('список: '); foreach var v in l do Print(v); WriteLn;
end.