Найдите количество и среднее арифметическое натуральных четырехзначный чисел, у которых первая цифра равна третьей,

program arethdig;
type
  Tdig4 = 1000..10000;
var
  arrdig: array of Tdig4; // Переменная для хранения массива с найденными числами
  dig: Tdig4;          // Промежуточная переменная для хранения искомого числа.
  a,b,c,d: integer;     // Промежуточные переменные для разложения числа по разрядам.
  sum: integer;         // Промежуточная переменная для подсчета суммы найденных чисел.
  areth: real;         // Переменная для хранения вычисленного значения среднего арифметического чисел.
  i: word;             // Переменная для хранения значения количества найденных чисел.
  j: word;           //  Промежуточная переменная для организации циклов.
begin
Writeln('Программа ищет натуральные четырехзначные числа, у которых первая цифра равна третьей, а вторая четвертой');
dig:=1000;
i:=0;
repeat
a:= dig div 1000;              // 1 цифра
b:= (dig mod 1000) div 100;    // 2 цифра
c:= (dig mod 100) div 10;      // 3 цифра
d:= dig mod 10;                // 4 цифра
if (a = c) and (b = d) then
  begin
  setlength(arrdig,i+1);
  arrdig[i]:=dig;
  inc(i);
  end;
dig:=dig+1;
until dig = 10000;
writeln;
Writeln('Найденные числа:');
for j:=0 to i-1 do
 Write(arrdig[j]:6);
 
sum:=0;
for j:=0 to i-1 do
 sum:= sum + arrdig[j];
areth:= sum/i;
writeln;
Writeln('Количество чисел с заданными свойствами: ',i);
Writeln('Среднее арифметическое чисел с заданными свойствами: ',areth:0:2);
Readln;
end.