Непонятная ошибка

[RusseLfStyle]

Когда ввожу 1,0, почему-то при ответе "1" выдает неправильный ответ(во встроенном тестере). Помогите исправить код, пожалуйста.


На столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые - гербом. Определите минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной и той же стороной.
Входные данные:
В первой строке входного файла INPUT.TXT записано натуральное число N (1 <= N <= 100) - число монеток. В каждой из последующих N строк содержится одно целое число - 1 если монетка лежит решкой вверх и 0 если вверх гербом.

Выходные данные:
В выходной файл OUTPUT.TXT выведите минимальное количество монет, которые нужно перевернуть.

Пример входного файла (input.txt):
5
1
0
1
1
0

Пример выходного файла (output.txt):
2

var m:array [1..1000]of integer;
    i,k,s,n:byte;
begin
readln(n);
s:=0;
for i:=1 to n do
readln(m[i]);
for i:=1 to n do
s:=s+m[i];
k:=n-s;
writeln(k);
end.

[RusseLfStyle]

Все. Разобрался. Помощь больше не требуется.

[Plague]

а зачем здесь массив то?
я бы сделал примерно так:

var n,i,a,s:integer;
begin
  readln(n);
  s:=0;
  for i:=1 to n do
    begin
      readln(a);
      s:=s+a;
    end;
  writeln(n div 2-abs(2*s-n) div 2);
  // или так
  // if n>2*s then writeln(s) else writeln(n-s);
end.