завдання:Сформувати динамічний рядок, вивести його на друк, якщо пере-
достаннім символом є літера “К”, то логічній змінній L присвоїти
значення TRUE
\

ось мій спроба,але помилок там багацько,намагалась виправити але не виходить(

program lab12(input,output);
zv= ^pointer;
pointer=record
elem:char;
next:zv;
end;
var
vslov,vlan:zv;
sym:char;
k,n:integer;
k,l:boolean;
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^.eelm:sym;
vlan^.next:=nil;
until sym='#';
k:=0;
vlan:=vslov;
while vlan^.next<> nil do
begin
if s[n-1]=k then L:=true
n:=lenght(s);
end;
vlan:=vlan^.next;
end;
writeln('result k',k);
writeln('vvestu literu');
vlan:vslov;
while vlan^.next <>nil do
begin
write(vlan^.elem);
end;
end.