Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10

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 (abs (a[i]) mod 10) + (abs (a[i]) div 10) < 10 then

write (a[i], ' ') ;

end;

end.