delphi program który wyświetla ilość występowania danej liit

Cześć wszystkim. Muszę napisać ten program na jutro który wyświetla ilość występowania danej liitery w pliku, tylko nie wiem jak. Prosze was o pomoc. Z góry dziękuje.

Zapraszam do działu praca.

napisałem tak ale nie wiem coś nie tak działa

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
Litery:array [65..90] of integer;
i,s:integer;
plik:Text;
nazwa_pliku:String;
text:string;
linia : string;
znak:char;

begin
Writeln('Podaj nazwe pliku, ktory chcesz otworzyc (pamietaj o rozszerzeniu!)');
Read(nazwa_pliku);
Assign(plik,nazwa_pliku);
Reset(plik);
while not EOF(plik) do
begin
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.