Помогите, пожалуйста составить программу в PascalABC!

vara: array[1… 10] of integer; k,i: integer; beginrandomize; k: =0; for i: =1 to 10 do begin a[i]: =random (2+1); if (a[i]=1) then inc (k); end; writeln (k); end.P.S. Не забудь отметить лучший ответ!