Помогите, пожалуйста, написать програмку в паскале! (дан массив из 20 чисел.…

Program znanija_com; const n=20; rnd=30; type tArray=array[1… n] of integer; var arr: tArray; i, sum: integer; Function Number (num: integer): real; Begin if num > 10 then Number: =1 else Number: =0; End; begin randomize; writeln ('Исходный массив: '); for i: =1 to n do begin arr[i]: =random (rnd); writeln (i, ' — элемент равен ', arr[i]); if Number (arr[i])=1 then sum: =sum+1; end; writeln ('Количество элементов которые больше 10 — ', sum); readln (); end.