Напишите полное решение без пояснений: вывести на экран элементы массива у которых сумма номера и элемента число кратное 7 (элементов массива: 15. массив вводится случайным образом в интервале [10; 13])

Uses crt;
const n=15;
var mas:array [1..n] of integer; 
i:integer; 
begin
mas[i] := Random(23) - 10; 
for i:=1 to n do 
readln(mas[i]); 
write('Числа кратные 7: ');
for i:=1 to n do 
if ((mas[i]+i) mod 7 = 0) then
write(mas[i],' ');
end.