Подсчитать количество введенных букв в предложении- Pascal(Паскаль)

var
  cnt : array[char] of integer;
  c : char;
  i : integer;
begin
  for c:=Low(cnt) to High(Cnt) do cnt[c] := 0;

  repeat
    read(c);
    inc(Cnt[c]);
  until c='.';

  {вывод результата}
  for c:=Low(cnt) to High(Cnt) do
    if cnt[c]>0 then
       WriteLn('Символ: ',c,' количество: ',cnt[c]);
  readln;

end.