помогите решить задачу в delphi :(

[Malishka23]

Дан список, состоящий из чисел. Прибавить к каждому элементу данного списка его порядковый номер.

[Greblin]

вот тебе рекурсивная процедурка, считывание, вывод сама можешь написать

type elp: ^element;

procedure add_number(p: elp; num: integer);
begin
p^.key := p^.key + num;
if (p^.next <> nil) then
  add_number(p^.next, n+1); 
end;

вызывать так

add_number(head, 1);