Помогите плиз, Заполнить массив случайными числами в интервале [1000; 2000) и…

var a: array [1… 100] of integer; i,n: integer; s: string; Begin randomize; for i: =1 to 100 do begin a[i]: =random (1000)+1000; a[i]: =a[i] mod 100; a[i]: =a[i] div 10; if a[i] mod 2=0 then n=n+1; end; writeln (n); End.