Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень

var  n,i,h,j,n1:integer;
tmp,sum:real;
a,b:array[1..100] of real;
begin
sum:=0;
 
 
readln(n,h);
for i:=1 to n do
 
readln(a[i]);
j:=0;
for i:=1 to n do
begin
if a[i]>=h then
dec(n)
else  begin
inc(J);
b[j]:=b[j]+a[i];
sum:=sum+b[j];
end;
end;
   for i:=2 to n do
   for j:=n downto i do
    if b[j-1]<b[j] then
     begin
       tmp:=b[j-1];
       b[j-1]:=b[j];
       b[j]:=tmp;
     end;
      n1:=n;
      i:=1;
    while sum>=h do
   begin
 
       if b[i]+b[n]<h then
       begin
       while b[n]+b[i]< h do
       begin
       if b[i]+b[n]>=h then
       begin
       sum:=sum-b[i]-b[n];
       b[i]:=0;
       b[n]:=0 ;
       end
       else
       dec(N);
       end;
       end else
       begin
       sum:=sum-b[i]-b[n];
       b[i]:=0;
       b[n]:=0;
       inc(I);
       dec(N);
       end ;
 
 
      write(b[n]:1:1);
       end;
 
    readln
    end.

uses crt;
var a,b:array[1..100] of integer;
i,j,s,n,r,z,kol:integer;
begin
clrscr;
write('Ââåäèòå ðàçìåð ìàññèâà=');
readln(s);
write('Ââåäèòå n=');
readln(n);
randomize;
for i:=1 to s do
 a[i]:=random(51);
for j:=1 to s-1 do
 for i:=1 to s-j do
  if (a[i]>=a[i+1]) then
   begin
    r:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=r;
   end;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to s do
 write(a[i]:4);
writeln;
writeln('Íóæíûå ýëåìåíòû');
for i:=1 to s-1 do
 if (a[i]+a[i+1]<n) then
  begin
   z:=z+1;
   b[z]:=a[i];
   z:=z+1;
   b[z]:=a[i+1];
   kol:=kol+1;
  end;
z:=0;
for i:=1 to kol*2 do
 begin
  write(b[i]:4);
  z:=z+1;
  if (z=2) then
   begin
    writeln;
    z:=0;
   end;
 end;
readln
end.

for i:=1 to s-1 do
 if (a[i]+a[i+1]<n) then
  begin
   z:=z+1;
   b[z]:=a[i];
   z:=z+1;
   b[z]:=a[i+1];
   kol:=kol+1;
  end;