В массиве В (15) записано рост детей. Найти средний рост группы детей. Помогите с Турбо паскаль)

Uses Crt;

Const

N = 15;

Var

B:array[1 ... N] of integer;

i:integer;

S:real;

Begin

ClrScr;

Randomize;

S:=0;

Write ('B (', N,') : ') ;

For i: = 1 to N do

Begin

B[i]:=random (71) + 130;

Write (' ', B[i]) ;

S:=S+B[i]

End;

WriteLn;

WriteLn ('Sr = ', S/N:0:2) ;

ReadLn

End.