Форум

Данная программа проходит все наши тесты:
program qwe;
var
n,m,a,b,c,d,i,k:integer;
x:array[1..100000] of int64;
begin
readln(n,m);
b:=0;
d:=0;
for i:=1 to n do
read(x[i]);
for k:=1 to n-1 do
for i:=1 to n-1 do
if x[i]>x[i+1] then
begin
a:=x[i];
x[i]:=x[i+1];
x[i+1]:=a;
end;
for i:=1 to n do
begin
if b<=m then
begin
c:=x[i]-i+1;
if c<=0 then c:=0;
b:=b+c;
end;
if b<=m then d:=d+1;
end;
writeln(d);
readln;
end.

А при связывании с файлами у нас выдаёт ошибку на 1ом тесте:

program qwe;
var
n,m,a,b,c,d,i,k:integer;
f1,f2:text;
x:array[1..100000] of int64;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
readln(f1,n,m);
b:=0;
d:=0;
for i:=1 to n do
read(x[i]);
for k:=1 to n-1 do
for i:=1 to n-1 do
if x[i]>x[i+1] then
begin
a:=x[i];
x[i]:=x[i+1];
x[i+1]:=a;
end;
for i:=1 to n do
begin
if b<=m then
begin
c:=x[i]-i+1;
if c<=0 then c:=0;
b:=b+c;
end;
if b<=m then d:=d+1;
end;
writeln(f2,d);
close(f1);
close(f2);
end.