Lista

Como fazer uma lista?
esta lista armazenará infinitos nomes até o usuário não querer continuar

program lista;
type
apont:^reg;
reg=record
nome: string[10];
prox:apont;
end;
var
inicio,anda,paux:apont;
opcao:char;
begin
inicio:=nil;
anda:=nil;
repeat
if inicio=nil
then begin
new(inicio);
writeln('Digite o nome');
readln(inicio^.nome);
inicio^.prox:=nil;
paux:=inicio;
end
else begin
new(anda);
writeln('Digite o nome');
readln(anda^.nome);
anda^.prox:=nil;
paux^.prox:=anda;
paux:=anda;
end;
writeln('Deseja continuar? <s/n>');
readln(opcao);
until opcao='n';
end.