сначала создаю массив,затем создаю связ список из элементов массива.а вот вставить элемент никак не получается(((

посмотрите пожалуйста.

program qwer;
uses crt;
const n=5;
type T=array[1..n] of byte;
uk=^zp;
zp=record
cif:byte;
adr:uk
end;
var f:file of byte;
a:t;
i:byte;
s,p:uk;

begin
clrscr;
assign(f,'chisla.aaa');
rewrite(f);
writeln('Massiv');
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
writeln('sp'); --------- (создаем список)
s:=nil;
for i:=1 to n do
begin
new(p);
p^.cif:=a[i];
write(p^.cif,' ');
p^.adr:=s;
s:=p;
end;
readkey;
close(f);
end.