program laba4;
type
zv=^pointer;
pointer=record
              elem:char;
              next:zv
end;

var
   find:boolean;
   vlan, vslov:zv;
   sym:char;

procedure vstav (lanka:zv; buk:char);
var
   q:zv;
begin
        if (lanka<>nil) then
     new(q);
     q^.elem:=buk;
     q^.next:=lanka^.next;
     lanka^.next:=q;
end;

begin
        find:=false;
             new (vslov);
     vslov^.next:=nil;
     vlan:=vslov;
     writeln ('Введiть символ до крапки');
     repeat
           read (sym);
           vstav(vlan,sym);
           vlan:=vlan^.next;
     until sym='.';
     writeln ('Сформований рядок');
     vlan:=vslov;
     vlan:=vlan^.next;
     while vlan^.next<>nil do
     begin
          write (vlan^.elem);
          vlan:=vlan^.next;
     end;

     vlan:=vslov;
     while vlan^.next=nil  do
     begin
         if vlan^.elem='K' then
         begin
                find:=true;
                break;
         end;
        vlan:=vlan^.next;
     end;

     if find=true then writeln('Element e')
     else
     begin
        vstav(vlan,'K');
        writeln('Element vstavleno');
        vlan:=vslov;
        vlan:=vlan^.next;
        repeat
        write(vlan^.elem);
        vlan:=vlan^.next
        until vlan=nil;
        writeln;
    end;
   end.