Сколько и каких цифр содержит текст - Turbo Pascal

var
  a: array ['0'..'9'] of Integer;
  i: Integer;
  c: Char;
  s: String;
begin
  ReadLn(s);
  for i:=1 to Length(s) do if s[i] in ['0'..'9'] then Inc(a[s[i]]);
  for c:='0' to '9' do if a[c]>0 then WriteLn(c,' - ',a[c]);
end.