Заполнить массив случайными числами из промежутка

Program Program1; VarH: array [1… 30] of integer; i,k: integer; beginrandomize; writeln ('Массив: '); for i: =1 to 30 dobeginH[i]: =random (100)+1; writeln ('H[',i,']=',H[i]); end; k: =0; for i: =1 to 30 dobeginif H[i]=1 then inc (k) elseif (H[i]>10) and (H[i] mod 10=1) then inc (k); end; writeln ('Чисел заканчивающихся единицей: ',k); end.