Исправить ошибку в коде

program lab13(input,output);
type
  zv = ^point1;
  point1 = record
    elem: char;
    next: zv;
  end;
 
var
  vlan, vslov: zv;
  sym: char;
 
  procedure vstav(lanka: zv; buk: char);
  var
    q: zv;
  begin
    new(q);
    q^.elem := buk;
    q^.next := lanka^.next;
    lanka^.next := q
  end;
 
procedure vydal(lanka : zv);                     
var
   q : zv;                                        
begin
     q := lanka^.next;                            
     lanka^.next := lanka^.next^.next;            
     dispose(q)                                   
end; 
 
 procedure printList(lanka:zv);
var
  q: zv;
begin
  new(q);
  q := lanka^.next;
  write(lanka^.elem);
  while q <> lanka do
  begin
    write(q^.elem);
    q := q^.next;
  end;
end;
 
begin
  writeln('Enter string: ');
  read(sym);
  new(vslov);
  vslov^.elem:=sym;
  vslov^.next := vslov;
  vlan:=vslov^.next;
  repeat
    read(sym);
    vstav(vlan, sym);
    vlan:=vlan^.next;
  until eoln;
  writeln('List :');
  printList(vslov); 
  writeln;
  
  vlan := vslov;
  while vlan^.next<> nil do
  begin
      vydal(vlan^.next);
      vlan:=vlan^.next;
   end;
    
 
 
writeln('Result List : ');
  printList(vslov); 
  writeln;
end.