Динамический однонаправленный список. Удаление элементов из списка. - Delphi - Ответ 2829444

program single;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  PNode = ^TNode;
  TNode = record
    data : string;
    next : PNode;
  end;
  TList = PNode;
 
var
  list : TList;
  namefind : string;
  i : integer;
  p : PNode;
 
procedure createlist(var l : TList);
begin
  l := nil;
end;
 
procedure addtolist(var l : TList; d : string);
var
  p : PNode;
begin
  new(p);
  p^.data := d;
  p^.next := l;
  l := p;
end;
 
procedure readlist(var l : TList);
var
  k : integer;
  d : string;
  i : integer;
begin
  readln(k);
  for i := 1 to k do
  begin
    readln(d);
    addtolist(l, d);
  end;
end;
 
 
function find(l : TList; d: string): PNode;
begin
     ???????????
end;
 
procedure delete(var p: PNode);
begin
???????
end;
 
 
procedure writelist(var l: Tlist);
var
  p : PNode;
begin
  p := l;
  while p <> nil do
    begin
      writeln(p^.data);
      p := p^.next;
    end;
 
end;
 
begin
createlist(list);
 
readlist(list);
readln(namefind);
 
p := find(list , namefind);
if p = nil then
  writeln('It doesn"t exist')
  else
  begin
    writeln('It exists');
    delete(p);
  end;
 
writelist(list);
 
readln;
end.