Нельзя изменить значение переменной цикла внутри этого цикла, ошибка на 16 строке, что делать? program ikt; uses crt; var mas:array[1..1000] of integer; i, n, c1, j, k: integer; begin readln(n); for i:=1 to n do begin mas[i]:=random(100); write(mas[i], ' '); end; writeln; c1:=n div 2; for i:=1 to c1 do begin for i:=1 to n-1 do for j:=1 to n-i do if mas[j]>mas[j+1] then begin k:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=k; end; for i:=1 to n do write(mas[i], ' '); end; writeln; for i:=c1+1 to n do begin for i:=1 to n-1 do for j:=1 to n-i do if mas[j]>mas[j+1] then begin k:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=k; end; for i:=1 to n do write(mas[i], ' '); end; writeln; end.