подбор n-значного числа

[uraura]

Const Pmax=10000;

это от того что 10к значений, я так понял

Type Post=string[4];

это что 4х значное число

Var A:array[1..Pmax] of Post; //множество
      B:array[1..Pmax] of boolean; // массив флажков, 1 - значит подходит, 0 - исключено

тут малость сложнее -
а: массив от 1 до 10000 потому что 4 знака от 0 до 9999 получается 10к,
б: каждому значению в массиве а флаг подходит или нет (например 1234 -не подходит значит значение б(1234)=0)

t:=1;

t у нас типа счетчика обьявляем начальное значение 1

for i:=0 to 9 do //первое из 4х чисел от 0 до 9
  for j:=0 to 9 do //второе из 4х чисел от 0 до 9
   for k:=0 to 9 do //третьеиз 4х чисел от 0 до 9
    for l:=0 to 9 do //третьеиз 4х чисел от 0 до 9
    begin 
     a[t]:=inttostr(i)+inttostr(j)+inttostr(k)+inttostr(l);

собираем строковую переменную из 4 знаков

inc(t);

увеличиваем t на 1
в результате цикла получим заполненный массив а
10к значениями от 1 до 10000

for i:=1 to pmax do
       b[i]:=true; // по умолчанию все числа подходят

тут не понятно

[BDA]

тут не понятно

Что не понятно?
Предварительно считаем, что все числа походят, поэтому устанавливаем в истину флаги для всех чисел.
В самом алгоритме не разбирался.
Кстати, если 1234 не подходит, то b[1234] = false, а не 0.