Паскаль методы сортировки

[Igomax]

Подскажите пожалуйста как мне сравнить сортировку выбором и адресную сортировку, по количеству проходов по массиву, количеству сравнений и количеству перестановок элементов массива

[ОДИНОЧЕСТВО В СЕТИ]

запускаешь на один и тот же массив обе свои сортировки и считаешь

количество проходов по массиву, количество сравнений и количество перестановок элементов массива

а потом сравниваешь

[Igomax]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

запускаешь на один и тот же массив обе свои сортировки и считаешь


а потом сравниваешь

А как считать то их

[ОДИНОЧЕСТВО В СЕТИ]

при каждом проходе по массиву увеличивай на 1 счетчик количества проходов
при сравнениях -----счетчик сравнений
при обмене-----счетчик обмена

[Igomax]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

при каждом проходе по массиву увеличивай на 1 счетчик количества проходов
при сравнениях -----счетчик сравнений
при обмене-----счетчик обмена

Спасибо большое!

[Igomax]

PROGRAM SORT;
uses crt;
CONST N=6;
type ma=array[1..n]of integer;


var a:ma;
i,p1,p2,s1,s2,pr1,pr2:integer;


procedure vibor (a:ma);
var imIN,MIN,I,J:INTEGER;
begin
p1:=0; s1:=0; pr1:=0;
FOR I:=1 TO n-1 DO
BEGIN
MIN:=A[I]; IMIN:=I;
FOR J:=I TO N DO
IF MIN>A[J] THEN BEGIN MIN:=A[J];
IMIN:=J;
END;
A[IMIN]:=A[I];
A[I]:=MIN;
END;
writeln;
write ('sortirovka vibora'); writeln;
for i:=1 to n do
WRITE(a[i]:8);  
end;


procedure adress (a:ma);

var B:array[byte] of 0..n;
i,s,k:integer;
begin
p2:=0; s2:=0; pr2:=0;
for i:=0 to 255 do b[i]:=0;
for i:=0 to n do b[a[i]]:=b[a[i]]+1;
k:=-1; s:=0;
for i:=0 to 255 do
begin
if b[i]<>0 then begin s:=s+b[i];
while k+1<>s do begin k:=k+1;
a[k]:=i; end;end; end;
writeln;
write ('adresnaia sortirovka'); writeln;
for i:=1 to n do
WRITE(a[i]:8);
END;

BEGIN clrscr;
RANDOMIZE;  writeln;
FOR I:=1 TO N DO BEGIN a[I]:=RANDOM(10);
WRITE (a[I]:8); END; writeln;
vibor(a);
adress(a);
end.

Всётаки я не могу понять где эти счётчики поставить