Чуть-чуть доделать программку! Опции

[Dmitriy_Rus]

Помогите пожалуйста чуть-чуть доделать программку.
по заданию нужно Написать программу, которая удаляет из линейного списка входной последовательности целых чисел- первый элемент.

начало вроде правильное:

 Program Dima;
Type el=^zap;
zap=record
D:real;
L:el
end;
Var F,W:el; 

далее построение списка тоже получается:

 {postroit spisok}
Procedure GreateFIFO (Var F:el);
Var W:el;
begin
new (F);
read (F^.D);
W:=F;
while not eof do
begin
new (W^.L);
W:=W^.L;
read (W^.D)
end;
W^.L:=nil
end; 

вывод того же списка тоже происходит:

 {vivod spiska}
Procedure OutList (F:el);
Var W:el;
begin
W:=F;
while W<>nil do
begin
write (W^.D);
W:=W^.L
end
end; 

но вот первый элемент не удаляется, подскажите что тут исправить, чтобы удалялся:

 {udalenie 1 elementa}
Function Del1 (Var P:el):el;
begin
Del1:=P;
P:=P^.L
end;
begin
GreateFIFO (F);
OutList(F)
end. 

Сообщение отредактировано: Dmitriy_Rus - 22.12.2010 19:59