Pascal/Turbo Pascal - AYUDAA..LISTASS!!

me dan una manito para este programa..

Una agencia de viajes, recibe durante el día la información de los pedidos de alojamiento de sus clientes. Un pedido está formado por: Apellido y Nombre del Cliente, nombre del lugar turístico elegido, cantidad de personas a alojarse.

a) Genere, a medida que va leyendo, una lista ordenada por Apellido. (Los apellidos se pueden repetir, en ese caso se deben almacenar según orden de llegada).

b) Una vez generada la lista del inciso a), se pide borrar todas las ocurrencias del apellido “Ramirez”. Analizar todos los casos posibles.


gracias gentee!
se lo re agradeceria!

Aja... ¿En qué necesitas ayuda?

estaria bn ahi el borrado?

Procedure BorrarNodo ( var pri: lista; x:string);
var ult, nue: lista;
begin
nue := pri;
ult := pri;
while (nue <> NIL) do begin
if (nue^.pedido. ayn = ‘’ramirez’’) then begin
if (nue = pri) then begin
pri := nue^.sig;
ult := pri;
dispose (nue);
nue := pri
end
else begin
ult^.sig:=nue^.sig;
dispose (nue);
nue := ult^.sig
end;
else begin
ult := nue;
nue := nue^.sig;
end;
end;
end;

A primera vista parece correcto.