динамические списки в дельфи

[афродита]

помогите пожалуйста,у меня есть прога на дельфи мне нужно её дополнить следующими заданиями:
1. Добавьте в программу переменную, подсчитывающую количество введенных элементов.
2. Вычислите сумму введенных элементов.
3. Напечатайте среднее арифметическое введенных элементов.
4. Выведите на экран не все элементы, а только К первых (число К вводится с клавиатуры)
5. Оформите операции создания и заполнения списка, а также вывода элементов списка на печать в виде процедур.
6. Опишите занесение элементов в начало списка и в конец списка в виде отдельных процедур
7. Опишите 2 процедуры вывода элементов списка на экран начиная с начала и с конца.
Вот сама прога:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type pitem=^item;
 item=record
 data:integer;
 ukaz: pitem;
 end;
 var
 p1,p2,p: pitem;
 N,i,d,f:integer;
Number:integer;
s:integer;
m:integer;
sr:integer;
k:integer;
begin
new(p);
writeln('Input data');readln(d);
p^.data:=d;
p^.ukaz:=nil;
p1:=p;
p2:=p;
F:=1;
while f=1 do
begin
new(p);
writeln('Input data');readln(d);
p^.data:=d;
p^.ukaz:=nil;
p1^.ukaz:=p;
p1:=p;
writeln('Add more? 1/0'); readln(f);
end;
p:=p2;
while p^.ukaz<>nil do begin
write(p^.data,''); p:=p^.ukaz;
end;
p:=p2;
while p2<>nil do begin
write(p^.data,''); p:=p2^.ukaz;
dispose(p2); p2:=p;
readln;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.