Списки. Нужна помощь

[fanyl]

type

link = ^linelink;
linelink = record
number : integer;
next : link
end;

var
start,last : link;
c : integer;
f1 : text;

procedure list ( var top, last : link; n1 : integer );
begin

if top=nil then
begin
new(top);
top^.number:=0;
last:=start;
new(last^.next);
last:=last^.next;
last^.number:=n1;
last^.next:=nil
end
else
begin
new(last^.next);
last:=last^.next;
last^.number:=n1;
last^.next:=nil
end

end;

procedure delete1 ( var top : link );
var
last,uk : link;
begin

if top<>nil then
begin
last:=top;
while last^.next<>nil do
begin
if last^.next^.number < 0 then
begin
uk:=last^.next;
last^.next:=last^.next^.next;
dispose (uk)
end
else last:=last^.next
end
end
end;

procedure conclusion ( var top : link );
var
last : link;
begin
if top<>nil then
begin
last:=top^.next;
while last<>nil do
begin
writeln (last^.number);
last:=last^.next
end
end
end;

begin
start:=nil;
last:=nil;
readln (c);
while c<>0 do
begin
list (start,last,c);
readln (c)
end;
writeln ('------------');

delete1 (start);
conclusion (start);

readln
end.

вот к этой программе помогите составить 2 процедуры, 1 на переворачивание списка в обратном порядке и 2 на вичисление среднеарифмитического. плз.