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

Program Chislo;
uses crt;
var A,
 a1,a2,a3,a4,a5,a6,h:longint;
begin
     clrscr;
     write('vveditb 6x-znachne chislo=');
     readln(A);
     A:=abs(A);
     write('vveditb chislo vid 1 do 9=');
     readln(h);
     write('zufru chisla A=');
     a1:=A div 100000;
     write(' a1=',a1);
     a2:=A div 10000 mod 10;
     write(' a2=',a2);
     a3:=A div 1000 mod 10;
     write(' a3=',a3);
     a4:=A div 100 mod 10;
     write(' a4=',a4);
     a5:=A div 10 mod 10;
     write(' a5=',a5);
     a6:=A mod 10;
     writeln(' a6=',a6);
     write('pozucija pershogo chusla jake bilshe za h=');
     if a1>h then write('1') else if a2>h then write('2') else if a3>h then write('3')
      else if a4>h then write('4') else if a5>h then write('5')
     else if a6>h then write('6') else write('nema');
     end.