Pascal/Turbo Pascal - urgenteeeeeee x favor

El colegio “Estampas” dispone de una estructura donde almacena la información de las donaciones que ha recibido. De cada donación se conoce: Código de donación, País que la donó, Año en el cual se efectuó la donación, monto de la donación y Nombre de la entidad que efectuó la donación. Esta información se encuentra ordenada por dos órdenes diferentes: un orden es el código de donación de manera Ascendente y el otro orden es el País que la donó de manera también ascendente.

a) A partir de la información de las donaciones generar una nueva estructura ordenada por año donde por cada año que se efectuó la donación, se tengan el total de las donaciones realizadas ese año

Program uno;
Type
Donacion=record;
Cod: integer;
Pais: string [50];
Año: integer;
Monto: real;
Nom: string [50];
End;

lista = ^nodo;
nodo = record
dato: donacion;
sig_cod: lista;
sig_pais: lista;
end;

lista_doble = record
pri_cod: lista;
pri_pais: lista;
end;

Var
lis_dob : lista_doble;


ayudaaa por favorr!!!
para generar la nueva listaa...