Найти элементы массива, сумма цифр которых меньше некоторого q и вывести их адреса

program MAS;
const Nmax=100;
var A:array [1..Nmax] of real;
    n,i:integer;
begin
  write('Введите количество элементов массива: n=');
  readln(n);
  write('Введите ', n, ' чисел: ');
  for i:=1 to n do
    read(a[i]);
    writeln;
  writeln('Исходный массив');
  for i:=1 to n do
    write('a[', i, ']=', a[i], ' ');
    read(a[i]);
    writeln;
  end.

program MAS;
uses
  CRT;
const
  Nmax = 100;
var
  A: array [1..Nmax] of integer; { Переменная для хранения массива}
  n: integer;  { Переменная для хранения значения количества элементов}
  q: integer;  { Переменная для хранения значения сравниваемого числа}
  i: integer;  { Вспомогательная переменная для организации циклов}
  sum: integer;  { Промежуточная переменная для суммирования цифр элементов массива}
  m: integer; { Промежуточная переменная для разложения чисел массива на разряды}
  flag: boolean; { Вспомогательная логическая переменная для организации ответа}
begin
  write('Введите количество элементов массива n = ');
  readln(n);
  writeln('Введите ', n, ' чисел: ');
  for i:= 1 to n do
    begin
      write('a[',i,'] = ');
      read(a[i]);             { Ввод значения элементов в массив}
    end;
  writeln;
  ClrScr;
  writeln('Исходный массив');
  for i:= 1 to n do
    write('a[', i, ']=', a[i], ', ');   {Вывод элементов в консоль}
  writeln;
  write('Введите значение числа q = ');
  readln(q);
  flag:= true;
  writeln('Элементы массива, значения которых меньше q: ');
  for i:= 1 to n do
    begin
      sum:= 0;
      m:= a[i];
      while m > 0 do          { Цикл для разложения чисел элементов на разряды}
        begin
          sum:= sum + m mod 10;   { Суммирования значений цифр разрядов}
          m:= m div 10
        end;
       if sum < q then            { Условие для отбора элементов }
         begin
           write('a[', i, ']=', a[i], ', ');   {Вывод найденных элементов в консоль}
           flag:= false;
         end;
    end;
  if flag then
    writeln('Элементы со значениями сумм чисел меньше, чем значение числа q не найдены.');
 
  readln;
end.

const n=3;
var i,q,s:integer;
  a:array[1..n]of integer;
  
begin
  for i:=1 to n do begin
    a[i]:=random(131)+20;
    write(a[i],' '); end;
  writeln;
  
  write('Введите число q:');
  readln(q);
  writeln;
  
  writeln('Элементы, сумма цифр которых меньше ',q,':');
  for i:=1 to n do begin
    s:=(a[i] mod 10) + (a[i] mod 100 div 10) + 
    + (a[i] mod 1000 div 100) + (a[i] div 1000);
    if s < q then
      writeln(a[i],'; индекс элемента:',i); end;
end.

program MAS;
const Nmax=100;
var A:array [1..Nmax] of integer;
    n,i,q,s,b:integer;
    z:boolean;
begin
  write('Введите число: q=');
  readln(q);
  write('Введите количество элементов массива: n=');
  readln(n);
  write('Введите ', n, ' чисел: ');
  for i:=1 to n do
    read(a[i]);
    writeln;
  writeln('Исходный массив');
  for i:=1 to n do
    writeln('a[', i, ']=', a[i], ' ');
    z:= true;
    writeln('Элементы, которые меньше ',q, ':');
    for i:=1 to n do
    begin 
    s := 0;
    b:=a[i];
      while b>0 do //цикл для разложения элементов на разряды
      begin
       s:=s+b mod 10; //суммирование 
       b:=b div 10;
      end;
      if s<q then //условие для отбора элементов
        begin 
        writeln('a[',i,']=',a[i]); //вывод найденных элементов
        z := false;
      end;
     end;
    if z then writeln('Таких элементов нет.');
  end.