Дано слово (предложение). Найти количество различных символов в нём.

Var I : Word;

M : Array [0..255] Of Byte;

S : String;

Begin

For I := 0 To 255 Do M[I] := 0;

S := 'Red fox jump over brown lasy dog';

For I := 1 To Length(S) Do

Begin

Inc(M[ORD(S[I])]);

End;

For I := 0 To 255 Do

Begin

If M[I] > 0 Then WriteLn(CHR(I):3, M[I]:3);

End;

End.