Помогите! Написать программу которая будет функция ввода масива…

Prorgam z; Var a: array [1… 100] of integer; i: integer; BeginRandomize; Read (n); For i: =1 to n do begina[i]: =random (100)+1; End; For i: =1 to n do beginWriteln (a[i]); End; End.