Массив из 10 элементов формируется случайным образом

Program Frank; const n=10; Type mas=array[1… n] of integer; var a: mas; i: integer; k: integer; beginfor i: =1 to n do begina[i]: =random (100)+1; write (',a[i]); end; k: =0; for i: =1 to n do beginif a[i] mod 7=0 then begin writeln (' Номер элемента, который кратен 7 под номером ',i); k: =k+1; end; end; if k=0 then writeln (' Такого элемента нет'); end.