Подсчитать количество номеров машин

uses 
  crt; 
var
  i , j, k : integer;
  a, order, par, size, kol : integer;
  chislo, nums : array [1..10] of integer;
  flag : array [1..10] of boolean;
  con : boolean;
begin
  write('Please, enter the size');
  read(size);
  for i := 1 to size do
    read(nums[i]);
  kol := 0;
  for k := 1 to size do
  begin
    a := nums[k];
    con := false;
    order := 0;
    while (a >= 1) do
    begin
      chislo[order + 1] := a mod 10;
      a := a div 10;
      inc(order);
    end;
    for i := 1 to order do
      flag[i] := false;
    for i := 1 to order do
    begin
      par := 0;
      for j := 1 to order do
        if ((i <> j) and (chislo[i] = chislo[j]) and (flag[j] = false)) then
        begin
          inc(par);
          flag[j] := true;
        end;
        if (par = 3) then
          con := true;
          break;
     end;
     if (con) then
       inc(kol);
  end;
  write(kol, ' ');
  readkey;
end.

var
 i,k: word;
begin
 k:=0;
 For i:=1000 to 9999 do
  if (((i div 100) mod 11)=0) then
   if (((i div 100) div 11)=((i mod 100) div 10))xor
      (((i div 100) div 11)=(i mod 10)) then inc(k)
      else else
      if (((i mod 100) mod 11)=0) then
       if (((i mod 100) div 11)=((i div 100) mod 10))xor
          (((i mod 100) div 11)=(i div 1000)) then inc(k);
 writeln('Всего ',k,' числa от 1000 до 9999 с тремя одинаковыми цифрами');
end.