Определите, сколько раз встречается в строке каждый из входящих в неё символов - Pascal ABC

var
  m: set of char;
  s: string;
  c: char;
  i, k: byte;
 
begin
  Write('Введите строку: '); ReadLn(s);
  for i := 1 to Length(s) do
    Include(m, s[i]);
  for c := #0 to #255 do
  if c in m then
  begin
    Write('Символ ''', c, ''' встречается ');
    k := 0;
    for i := 1 to Length(s) do
      if s[i] = c then k := k + 1;
    WriteLn(k, ' раз')
  end;
  ReadLn
end.