Program DenduridheFjale;
Uses WinCRT;

Type
str=string[15];
fjale=^liste;
liste=record
fjala:string[15];
den:integer;
tjetri:fjale;
end;


var listajone,element,org:fjale; ff,fp:text; ch:char;fj:str;

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 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;
    koka:=tmp2;
    l:=koka;
    dispose(tmp2);
   End;
  End;

Begin {Programi Kryesor}
 Assign(ff,'c:\SKTP\SKTXT\tekst.txt');    Reset(ff);
 Assign(fp,'c:\SKTP\SKTXT\fjaleden.txt'); Rewrite(fp);
 listajone:=nil;
 new(element);
 fj:='';
 While not eof(ff) do
     Begin
      While not eoln(ff) do
       Begin
        Read(ff,ch);
        If ((ch<>'') and (ch<>' ') and (ch<>',') and (ch<>'.') and (ch<>'?') and (ch<>'!')) then
        fj:=fj+ch
        else
        If fj<>'' then
        Begin
         Kontrollo_listen(listajone,fj);
         fj:='';
        End;
       End;
      Readln(ff);
     End;

 org:=listajone;
 while org<>nil do
 Begin
  writeln(fp,org^.fjala,org^.den);
  org:=org^.tjetri;
 End;
 Close(ff);Close(fp);
END.

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;