нужно подправить задачку

[mashat99]

var f1,f2:text;
i,n,sm: integer;
sa:real;
a:array[1..1000]of integer;

begin
n:=0;
assign(f1,'input1.txt');
reset(f1);

while not(eof(f1)) do
 begin
  i:=i+1;
  read(f1,a[i]);
  n:=n+1;
 end;

   for i:=1 to n do
   begin
    sm:=sm+a[i];
    sa:=sm/(n-1);
  end;
close(f1);

  assign(f2,'output1.txt');
  rewrite(f2);
   for i:=1 to (n div 2) do
   begin
    if a[i]<sa then
    writeln(f2,a[i]);
   end;
  close(f2);
readln;
end.

помогите, пожалуйста...нужно занести в файл "output1.txt" все числа, которые меньше среднего арифметического...не могу понять, что сдесь не то...

[unbanned]

в цикле когда считываешь из файла переменная i лишняя
среднее арифметическое немного не верно находится...

sm:=0;
 for i:=1 to n do
    sm:=sm+a[i];
  sa:=sm/(n-1);

и мне непонятно почему ты сравниваешь с средним арифм. только элементы от 1 до (n div 2)...
может всё-таки до (n-1)?