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

Program n_1;

var a:array [1..1000] of integer; i, buf:integer;

begin

   for i:=1 to 1000 do begin

       read(a[i]);

       buf:=a[i];

       while bufgt;9 do buf:=buf div 10;

       if bufgt;a[i] mod 10 then write(a[i], ' ');

   end;

end.

программка генерирует массив случайной длины от 10 до 100 частей с значениями в спектре 10..9999999

потом выводит все элементы у которых 1-ая цифра больше 2-ой.

var

   n : integer;

   d : array of integer;

begin

   n := random(10, 100);

   d := new integer[n];

   d := arrRandom(n, 10, 9999999);

   for var i := 0 to n-1 do begin

       var a1, a2 : integer;

       a1 := d[i];

       repeat

           a1 := a1 div 10;

       until a1 lt; 10;

       a2 := d[i] mod 10;

       if a1 gt; a2 then writeln(d[i]);

   end;

end.