Procedure Kontrollo_listen(Var l:fjale;fj2:str);
Var tmp,tmp2,koka:fjale; c:boolean;
Begin
  c:=False;
  tmp:=l; koka:=l;
  If tmp=nil then
  Begin
    new(tmp2);
    tmp2^.fjala:=fj2;
    tmp2^.den:=1;
    tmp2^.tjetri:=tmp;
//   tmp:=tmp2;
    l:=tmp;
//   dispose(tmp2);
  End
  else
  Begin
    while (tmp<>nil) and (not c) do
//   while tmp<>nil do
    Begin
      If tmp^.fjala=fj2 then
      Begin
        tmp^.den:=tmp^.den+1;
        c:=true;
      End;
      tmp:=tmp^.tjetri;
    End;
  End;
  If c=false then
  Begin
    new(tmp2);
    tmp2^.fjala:=fj2;
    tmp2^.den:=1;
    tmp2^.tjetri:=koka;
    l:=tmp2;  // use this
//    koka:=tmp2;
//    l:=koka;
//    dispose(tmp2);
  End;
End;