помогите пожалуйста найти ошибку в коде.вот задание: "дан список Б,который состоит из записей: первое поле - слова из 10 литер, второе - адрес следующего элемента. нужно составить программу для удаления последнего элемента списка."

Приложение:
program lab26_z3_odn_sp_lab1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
spB=^elem;
elem=record
info:string[10];
next:spB;
end;
var
x,u,dx:spB;
S:string;
begin
new(x);
read(x^.info);
x^.next:=nil;
u:=x;
dx:=x;
S:='Da';
while S<>'No' do
begin
new(x);
read(x^.info);
dx:=x;
readln(S);
end;
dispose(dx);
{ TODO -oUser -cConsole Main : Insert code here }
end.