Что это за тип данных? (Delphi)

Нормальная константа!
Множество значений типа Char.
В программе, вероятно, должна быть проверка на принадлежность какого-то символа данному множеству:
if Ch in pattern then
К примеру вот такой функцией можно проверить состоит ли строка только из цифр:
function StrNumber(S : String) : Boolean;
var
Res : Boolean;
N, L : Byte;
begin
Res := True; N := 1; L := Length(S);
while (N < L) and Res do Res := S[N] in ['0'..'9'];
StrNumber := Res;
end;
На счёт массива - не понятно.
Если массив множеств, то наверное так:
type pType = set of char;
const p: array [0..5] of pType = (
{ цифры } ['0'..'9'],
{ латиница Б } ['A'..'Z'],
{латиница м} ['a'..'z'],
{ русские Б } ['А'..'Я', 'Ё'],
{ русские м} ['а'..'п', 'р'..'я', 'ё'],
{ знаки препинания и прочие символы } [#32, '!', '.', ',', ':', ';', '+', '-', '*', '/', '=', '_']);
Это для кодировки под DOS. Под Windows с русскими буквами можно между 'п' и 'р' разрыв не делать!
В Delphi это можно решить не обязательно через массив.
Можно прямо в программе использовать списки:
case Ch of
'0'..'9' : Result := 'цифра';
'A'..'Z' : Result := 'большие латинские';
'a'..'z' ; Result := 'маленькие латинские';
else Result := 'другие символы';
end;

Бред какой-то. Может, имеллось в виду это:

type
pattern = array['A'..'Z', 'a'..'z', '0'..'9'] of char;
var
pat: pattern;
begin
pat['A', 'a', '0'] := 'a';
end.

cоnst pattern:array [A..Z, a..z, 0..9] of word.
но я не уверен, скажи как ты будешь этот массив использовать?