Matematické Fórum

Dobrý den potřebuju pomoc s vytvořením procedury, která vloží prvek na začátek seznamu.
Jak by se to lišilo od této procedury (níže)? Myslím, že nejdřív je třeba vytvořit nový prvek, to mám. Ale nevím jak se napíše aby se do něj uložila nová data a pak aby se za ten nový prvek napojila hlava. Nakonec bych z toho nového prvku měl udělat novou hlavu seznamu. Diky.

procedure PridejNaKonec ( var s : TSeznam; data : TData );
var p : UPrvek;
begin
new( p ) ;
s.zarazka^ .dalsi:=p;
s.zarazka^.data:=data;
s.zarazka:=s.zarazka^.dalsi;
s.zarazka^.dalsi := nil ;
end;