Составить подсчет суммы положительных элементов

Program n1; Uses CRT; Const n=10; Var s,i: integer; a: array[1… n] of integer; beginClrScr; Randomize; For i: =1 to n do begin a[i]: =random (50); a[i]: =a[i]-25; write (a[i]: 3); end; For i: =1 to n do if a[i]>0 then s: =s+a[i]; writeln ('summa=',s); readlnend.