Дан массив А(15), состоящий из двухзначных цифр. Найти и вывести на экран сумму всех двухзначных чисел, у которых первая цифра больше второй. Если таких чисел нет, то вывести сообщение об этом факте. Отсортируйте массив по убыванию. Выведите на экран отсортированный массив — Pascal(Паскаль)

uses crt;
const n=15;
var
a: array [1..n] of integer;
i,j:integer;
digit1,digit2:integer;
sum:integer;
buf:integer;
min:integer;
count:integer;
begin
sum:=0;
count:=0;
write('--------:');
randomize;
for i:=1 to n do
begin
 a[i]:=random(30)+10;
 write(a[i],'|');
 digit1:= a[i] div 10;
 digit2:= a[i] mod 10;
 if digit1>digit2 then
  begin
  sum:=sum+a[i];
  inc(count);
  end;
end;
writeln;
if count=0 then writeln('Net chisel')
else writeln('Summa: ',sum);
write('------: ');
 For i := 2 to n do
  For j := n downto i do
  If a[j-1] > a[j] then
  begin
   buf:=a[j-1];
   a[j-1]:=a[j];
   a[j]:=buf;
  end;
for i:=1 to n do
write(a[i],'|');
End.