0
procedure tri_selection(t: tab; n: Integer);
var
 i, j, min, aux: Integer;
begin

  for i := 1 to n - 1 do
  begin

    min := i;

    for j := i + 1 to n do
      if t[j] < t[min] then
        j := min;

    if min <> i then
    begin
      aux := t[i];
      t[i] := t[min];
      t[min] := aux;
    end;

  end;

end;

That's supposed to be a correct and well-known code to arrange integers from inferior to superior but compiler still insists saying "illegal assignment to for loop 'j' variable".

What's the problem?

Andreas Rejbrand
  • 105,602
  • 8
  • 282
  • 384
bilel kalamoun
  • 5
  • 2

2 Answers2

1

The problem is here:

for j := i + 1 to n do
  if t[j] < t[min] then
    j := min;                      // <-- Not allowed to assign to FOR loop variable j

You are not allowed to assign to the for loop variable.

Perhaps you meant to write

for j := i + 1 to n do
  if t[j] < t[min] then
    min := j;
Andreas Rejbrand
  • 105,602
  • 8
  • 282
  • 384
0

you forgot var before t in the header of the procedure

Adem_Bc
  • 48
  • 6
  • If you clarify why `var` is needed before `t` in the procedure argument list, this could make it a good answer. – Nowhere Man Sep 28 '20 at 11:47