i dont understand where mistake

var K,N,s,x,i,j:integer;
min:array[1..101] of integer;
begin
readln(K);
N:=K div 2 + 1;
for i:=1 to N do min[i]:=maxint;
for i:=1 to K do
begin
read(x);
for j:=1 to N do if min[j]>x then begin
min[j]:=x;
break;
end;
end;
for i:=1 to N do s:=s+(min[i] div 2 +1);
writeln(s);
end.

Mistake is here:
>for i:=1 to N do min[i]:=maxint;
>for i:=1 to K do
>begin
>read(x);
>for j:=1 to N do if min[j]>x then begin
>min[j]:=x;
>break;
>end;
>end;
IMO, it's much easier to read array and then sort it.