Доброго времени суток Jin

Смотрите код:
[code lang=pascal]type
pList=^tList;
tList=record
data:integer;
next:pList;
end;
var
l,p:pList;
e,n:integer;
function find(a:integer;b:plist):boolean;
begin
while (b<>nil)and(a<>b^.data)do b:=b^.next;
find:=b<>nil;
end;
begin
repeat
write('enter n:=');
readln(n);
until n>0;
l:=nil;
while n>0 do
begin
new(p);
p^.next:=l;
l:=p;
l^.data:=n;
dec(n);
end;
write('enter e:=');
readln(e);
if find(e,l) then writeln('true')else writeln('false');
while l<>nil do
begin
p:=l;
l:=l^.next;
dispose(p);
end;
end.[/code]

Удачи!