[voiaka2008]

есть код программы, задание такое:
1.Найти элемент массива, имеющий наименьшее значение, переставить его с первым элементом, затем продолжить то же самое, начав со второго элемента и т.д. (сортировка выбором)
2.Последовательным просмотром чисел а1….аn и каждый новый элемент аi вставлять на подходящее место в уже упорядоченную совокупность а1…..аi-1. Это место определяется последовательным сравнением аi с упорядоченными элементами а1…..аi-1 . (сортировка простыми перестановками)

Оба задания в одном коде. проблема в том, что в коде где то ошибка и он во втором задании не сортирует элементы, и в случае если:

Код:

procedure ZadMass(var a,b:tmass);
var i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
b[i]:=a[i];
end;
end;

поменять одну строчку, т.е.

Код:

procedure ZadMass(var a,b:tmass);
var i:integer;
begin
for i:=1 to n do
begin
a[i]:=i;
b[i]:=a[i];
end;
end;

Bargest: читаем правила форума, оформляем код тегами!

при формировании массива числа записываются от 1 и дальше по порядку, счетчики "кол-во сравнений" и "кол-во замен" считают неправильно.
Надеюсь все поняли в чем проблема. и все таки подытожу:
1. нет сортировки во втором задании
2. неправильные счетчики

Помогите пожалуйста срочно!!! Я уже не могу думать где ошибка. Может у Вас свежим взглядом получится лучше