Jak użyć funkcji ord i chr w TP do zliczania znaków w pliku tekstowym?

uses
  Crt;
const
  znak_min = 32;
  znak_max = 126;
var
  tab : array [znak_min..znak_max] of integer;
  i   : byte;
  plik: text;
  ch  : char;
begin
  ClrScr;
  assign(plik,'dane.txt');
  reset(plik);

  while not Eof(plik) do
  begin
    read (plik,ch);
    i := ord (ch);
    if (i >= znak_min) and (i <= znak_max) then
      tab[i] := tab[i]+1
  end;
  close (plik);

  for i := znak_min to znak_max do
    if tab[i] > 0 then
       write (chr (i):2,'  -',tab[i]:8,' szt., ');

  Writeln;
  Write ('Press any key...');
  ch := readkey;
  if ch = #0 then
    ch := readkey
end.