Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

var i, j, kolvo: byte;
x, temp: integer;
a: array [1..10] of byte;
begin
assign (input, 'input.txt');
assign (output, 'output.txt');
reset (input);
rewrite (output);
readln (input, x);
for i:=1 to 10 do
read (input, a[i]);
for i:=1 to 10 do
for j:=1 to 10 do
if a[i] < a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
temp:=0;
i:=1;
while temp + a[i] <= x do
begin
inc (i);
inc(kolvo);
temp:=temp+a[i-1];
end;
writeln (kolvo);
close (output);
close (input);
end.

var
  kolvo: byte;
  x, temp: integer;
  a: array [1..10] of byte;
 
begin
  assign(input, 'input.txt');
  assign(output, 'output.txt');
  reset(input);
  rewrite(output);
  readln(input, x);
  for var i := 1 to 10 do
    read(input, a[i]);
  for var i := 1 to 10 do
    for var j := 1 to 10 do
      if a[i] < a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
  temp := 0;
  var i := 1;
  while temp + a[i] <= x do
  begin
    inc(i);
    inc(kolvo);
    temp := temp + a[i - 1];
  end;
  writeln(kolvo);
  close(output);
  close(input);
end.

begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  var x := ReadlnInteger;
  var a: array [1..10] of byte;
  for var i := 1 to 10 do
    read(a[i]);
  for var i := 1 to 10 do
    for var j := 1 to 10 do
      if a[i] < a[j] then
      begin
        var temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
  var temp := 0;
  var i := 1;
  var kolvo := 0;
  while temp + a[i] <= x do
  begin
    i += 1;
    kolvo += 1;
    temp += a[i - 1];
  end;
  kolvo.Println;
  input.Close;
  output.Close;
end.