Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от –100 до 100 включительно. напишите алгоритм, позволяющий найти и вывести количество пар двузначных и противоположных по знаку элементов массива. под парой подразумевается два любых элемента массива, один элемент может быть участником разных пар. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Подозреваю, что не самый рациональный метод решения, но чем смог тем

const 
N = 30; 
var 
a: array [1..N] of longint; 
i, j, k: longint; 
begin 
for i := 1 to N do 
readln(a[i]); 
j:=0; 
k:=0; 
for i:=1 to N do begin 
if (abs(a[i])>=10) and (abs(a[i])<100) and (a[i]>0) then inc(k); 
if (abs(a[i])>=10) and (abs(a[i])<100) and (a[i]<0) then inc(j); 
end; 
if k>j then writeln(j) 
else if k<j then writeln(k) 
else if k=j then writeln(k); 
end.