Ввести 30 двузначных чисел и вывести на экран те у которых

Program prog;
uses crt;

var a: array [1..30] of integer;
    i: integer;

begin
clrscr;

for  i:=1 to 30 do
     begin
          write('a[',i,'] = ');
     readln(a[i]);
     end;

for  i:=1 to 30 do
     begin
     if (абс(a[i]) mod 10)+ (abs(a[i]) div 10) lt; 10 then
     write (a[i], '  ');
     end;
end.