В заданном массиве определить есть ли хотя бы один элемент, который является числом, кратным 7. Если “да”, то вывести его номер.

Выводит 2 строки: Сам массив(20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.program test;uses crt;const  t:boolean=false;var  arr:array[1..20] of integer;  i:integer;begin  randomize;  clrscr;  for i:=1 to 20 do    begin      arr[i]:=random(90)+10;      write(arr[i],' ');    end;  writeln;  for i:=1 to 20 do    if arr[i] mod 7 = 0 then      begin        write(i,' ');        t:=true;      end;  if t=false then     write('No elements');end.