Вес каждого из 25 человек записан в массив. Людей, имеющих вес более 100 кг, будем условно называть полными (известно, что есть по меньшей мере один такой человек). Определить средний вес полных людей и среднюю массу остальных людей — Pascal(Паскаль)

uses crt;
var a:array[1..100] of byte;
      n,i,k:byte;
      sr:real;
begin
 clrscr;
 writeln('Введите количество человек');
 readln(n);
 writeln('Введите их вес');
 for i:=1 to n do
  begin
   write('Вес ',i,' -го человека равен ');
   readln(a[i]);
  end;
 
writel('Средний вес полных людей равен ');  
k:=0;
sr:=0;
 for i:=1 to n do
  if a[i]>100 then 
   begin
    sr:=sr+a[i];
    inc(k);
   end;
writeln(sr/k:7:2);
writel('Средний вес неполных людей равен ');  
k:=0;
sr:=0;
 for i:=1 to n do
  if a[i]<=100 then 
   begin
    sr:=sr+a[i];
    inc(k);
   end;
writeln(sr/k:7:2);
readln;
end.