Является ли строка записью автомобильного номера - Turbo Pascal

Формулировка задачи:

Автомобильные номера России в большинстве случаев состоят из первой буквы, трехзначного целого числа и последних двух букв. Программа получает с клавиатуры строку некоторого номера и выдает решение: правильно этот номер записан или нет. Указание: в автомобильных номерах используются не все буквы, а только те, которые по начертанию совпадают с латинскими буквами

Решение задачи: «Является ли строка записью автомобильного номера»

Листинг программы

const
  A=[
    'А','В','Е','К','М','Н','О','Р','С','Т','У','Х',
    'а','в','е','к','м','н','о','р','с','т','у','х',
    'A','B','E','K','M','H','O','P','C','T','Y','X',
    'a','b','e','k','m','h','o','p','c','t','y','x'];
  D=['0'..'9'];
var s: String;
begin
  Write('Номер: '); ReadLn(s);
  WriteLn((Length(s)=6) and (s[1] in A) and (s[2] in D) and (s[3] in D) and (s[4] in D) and (s[5] in A) and (s[6] in A));
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания программ на языке, близком к английскому. В данном конкретном примере кода объявлены следующие переменные:

s: тип данных String (строка).
A: константный массив символов, представляющий собой возможные цифры автомобильного номера.
D: константный массив чисел от 0 до 9, представляющий собой возможные цифры автомобильного номера. Далее, в функции ReadLn считывается строка от пользователя. Затем происходит проверка условий:
Длина строки должна быть равна 6 символам.
Первый символ строки должен быть одним из символов массива A.
Второй символ строки должен быть одним из символов массива D.
Третий символ строки должен быть одним из символов массива D.
Четвертый символ строки должен быть одним из символов массива D.
Пятый символ строки должен быть одним из символов массива A.
Шестой символ строки должен быть одним из символов массива A. Если все условия выполняются, то выводится сообщение, подтверждающее, что строка является записью автомобильного номера.