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

uses Crt;Const   N = 15;Var   B:array[1..N] of integer;   i:integer;   S:real;BeginClrScr;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);ReadLnEnd.