program

program Project1;{$APPTYPE CONSOLE}uses  SysUtils;varLitery:array [65..90] of integer;i,s:integer;plik:Text;nazwa_pliku:String;text:string;linia : string;znak:char;beginWriteln('Podaj nazwe pliku, ktory chcesz otworzyc (pamietaj o rozszerzeniu!)');Read(nazwa_pliku);Assign(plik,nazwa_pliku);Reset(plik);while not EOF(plik) dobegin  read(plik,linia);  text:=  text+linia ;  while not eoln(plik) do  for i:=65 to 122 do    Litery[i]:=0;  for i:=1 to Length(text) do    Litery[ord(text[i])]:=Litery[ord(text[i])]+1;  for i:=65 to 122 do    if Litery[i]<>0 then      writeln(chr(i),' - ',Litery[i]);   end;close(plik); readln;end;end.