将所有员工的年薪加起来除以人数就行了

我想中间值指的是最靠近平均数的那个员工的工资吧，我是这样写的，还有，我让那老板在输入结束的时候输入一个“-1”，这不算违反规则吧？如果我上面说的两条都对，那我的程序如下
var m:array[1..500] of real;
    i,j:integer;a,b,n,s,t:real;
begin
repeat
 i:=i+1;
 read(m[i]);
 s:=s+m[i];
until m[i]=-1;
writeln('staff number:',i-1);
n:=(s+1)/(i-1);
b:=1000000;
 for j:=1 to i-1 do
  begin
   a:=abs(m[j]-n);
   if a<b then begin b:=a; t:=m[j]; end;
  end;
writeln('middle number:',t:0:2);
end.

Begin
  read(a);s:=0;
  while a<>-1 do begin
    s:=(s+a)/2;
    read(a);
  end;
  writeln(s);
End.

输入一大堆数, 排序.
如果它们有奇数个, 结果就是正中间的数. 
如果它们有偶数个, 结果就是正中间的两个数的平均值.