Сформировать массив поставить на четные числа 1 а на место нечетных 0

Uses crt; const n=10; var a: array [1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100); writeln (a[i]); end; writeln; for i: =1 to n doif (a[i] mod 2=0) then a[i]: =1 else a[i]: =0; for i: =1 to n do writeln (a[i]); end.