基本上，我不知道如何在“ dispose（death）”之后停止销毁列表，因为我不断收到我无法理解的内部错误，我将不胜感激！
L := Start;
write('what are you looking for: '); readln(S);
L:=Start;
while (L <> nil) and (L^.char <> S) do
begin
if L^.char = s then
death := L;
L:=L^.next;
end;
Dispose(death);
错误消息：
Project pro引发了异常类“外部：SIGSEGV”。地址为100002AE6