Program Dasha Uses CRT Var current summ count integer out real Begin t

Program Dasha;
Uses
  CRT;

Var
  current, n, i, summ, count :integer;
  out :real;

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