Program Dasha Uses CRT Begin CLRSCR Var size array of real summ count

Program Dasha;
Uses
  CRT;
  
Begin
  CLRSCR;  
  Var
    size: array[0..n] of real;
    n, i, summ, count :integer;
    out :real;
    
  Writeln('Количество учеников');
  Readln(n);
    
  For i:=1 to n do
    Begin
      Write('Ученик ', i, ' введите рост: ');
      Read(size[i]);
      if size[i] < 0 then
        begin
          summ := summ - size[i];
          count := count + 1;        
        end;
    End;    
  out := summ / count;
  Writeln('Средний рост мальчиков:', out);
  
End;