Недочет в задаче. Неполное решение

[Yankeee]

Для олимпиады пишу программу, вроде все работает. Но при проверке мне написали что неполное решение и => 0 баллов.

вот текст задачи

http://informatics.mccme.ru/moodle/m...&chapterid=482

Задача B-Лавочки

Лавочки

Ограничение времени: 2 с
Ограничение памяти: 256 M
Лавочки в парке устроены следующим образом. Несколько одинаковых кубических гранитных блоков ставятся в ряд, а на них кладется гранитная плита (см. рисунок). Архитектор-модернист решил, что будет интереснее, если у всех лавочек расположение гранитных блоков-ножек будет разным (и не обязательно симметричным). При этом они располагаются так, чтобы плита не падала: для этого достаточно, чтобы и слева, и справа от центра плиты был хотя бы один гранитный блок или его часть (в частности, если центр плиты приходится на середину какого-нибудь блока, то и слева, и справа от центра плиты находится часть блока, и плита не падает).

Грабители обнаружили, что можно по одному вытаскивать гранитные блоки, находящиеся с краю (как слева, так и справа). Они хотят вытащить из-под лавочки как можно больше блоков так, чтобы она при этом не упала (передвигать оставшиеся блоки нельзя). Определите, какие блоки они должны оставить.

Формат входных данных

В первой строке входного файла записаны два числа: L – длина лавочки и K – количество гранитных блоков-ножек. Оба числа натуральные и не превышают 10000.

Во второй строке записано K различных целых неотрицательных чисел, задающих положение каждой ножки. Положение ножки определяется расстоянием от левого края плиты до левого края ножки (ножка – это куб размером 1×1×1). Ножки перечислены слева направо (то есть начиная с ножки с меньшим расстоянием до левого края).

Формат выходных данных

В выходном файле требуется перечислить ножки, которые грабителям нужно оставить. Для каждой ножки нужно выдать ее положение, как оно задано во входном файле. Ножки следует перечислять слева направо, как они встречаются во входном файле.

Примеры

Входные данные
5 2
0 2
Результат
2

Входные данные
13 4
1 4 8 11
Результат
4 8


а вот код программы :

program lavochki;
var
k, i, b, l: integer;
a: array [1..10] of integer;
begin
readln (l, k);
for i:= 1 to k do
read (a[i]);
b:= 0;
for i:= 1 to k do
if a[i]< l div 2 then
b:= b + 1;
if l mod 2=0 then
writeln (a[b], ' ', a[b+1])
else
if l div 2= a[b+1] then
writeln (a[b+1]) else
writeln (a[b], ' ', a[b+1];
readln;
end.

Напишите где что я не досмотрел. Пожалуйста, 1 день остается чтобы сдать