Двунаправленные списки-паскаль

[Алена_=)))]

Здравствуйте всем кто сюда зашел! задача в том чтобы создать двунаправлсписок из вещественных элементов и подсчитать среднее арифметическое этих элементов!
я набрасала формиование и вывод списка на экран,а с подсчетом не могу разобраться, результат в информационное поле должна заносить или нет?а подсчет кол-ва элементов тоже через указатели считать?.
пыталась искать по форуму что то похожее-никак!
Очень прошу о какой-нибудь подсказке или решении последний процедуры по подсчету ср. арифм!
Вот модуль:

unit Unit1;

interface
type int=^rec;
     rec=record
     last:int;
     next:int;
     data:real;
     end;

procedure form(out a,b:int; s:integer);
procedure vivod(a:int);
//function Sr_Arifm(a,b:int):real;

implementation

procedure form(out a,b:int; s:integer);
var i:integer; d:int;
begin
randomize;
new(a);
a^.data:= random(50)/5-random(20);
a^.last:=nil;
d:=a;
for i:=2 to s do
begin
new(d^.next);
d:=d^.next;
d^.data:=random(50)/5-random(20);
d^.next:=nil;
end;
b:=d;
end;

procedure vivod(a:int);
begin
while a<>nil do
begin
writeln(a^.data:0:2);
a:=a^.next;
end;
end;

[Stilet]

формиование и вывод списка

Ну дык осталось шагнуть в пропасть...

function GoodBye(a:int);
var res:double;cnt;integer;
begin cnt:=1;
while a<>nil do
begin
 res:=a^.data+res
 a:=a^.next;
 inc(cnt);
end;
 res:=res/cnt;
 GoodBye:=res;
end;

...и полететь

[Алена_=)))]

ААА спасибо огромное оказывается все так просто))))))))