Здравствуйте. Код программы не работает. Помогите разобраться.

[naruto13]

Сформировать динамическую строку. Если предпоследним символом является буква K, то логической переменной L присвоить значение TRUE. Вывести её на экран.

program lab12(input,output); 
type 
zv= ^ pointer; 
pointer=record 
elem:integer; 
next:zv; 
end; 
var 
vslov,vlan:zv; 
sym:char; 
n:integer; 
k:boolean; 
s:string; 
begin 
writeln('vvedit literu z klaviatury'); 
read(sym); 
new(vslov); 
vslov^.elem:=sym; 
vslov^.next:=nil; 
vlan:=vslov; 
repeat 
read(sym); 
next:=vlan^.next;; 
vlan:=vlan^.next; 
vlan^.elem:=sym; 
vlan^.next:=nil; 
until sym='#'; 
k:=0; 
vlan:=vslov; 
while vlan^.next<> nil do 
begin 
if s[n-1]=k then 
L:=true 
end; 
vlan:=vlan^.next; 
writeln('result k',k); 
writeln('vvestu literu'); 
vlan:vslov; 
while vlan^.next <>nil do 
begin 
write(vlan^.elem); 
end; 
end.

Кросспост
http://programmersforum.ru/showthread.php?t=285463