Сравнение сортировок Паскаль

[Igomax]

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

У меня получилась следующая программа, но счётчики раставлены скорее всего неправильно. Помогите пожалуйста исправить программу.

PROGRAM SORT;
uses crt;
CONST N=4;
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 p1:=p1+1;
MIN:=A[I]; IMIN:=I;
FOR J:=I TO N DO begin s1:=s1+1;
IF MIN>A[J] THEN BEGIN MIN:=A[J];
IMIN:=J;
END;    end;
A[IMIN]:=A[I];
A[I]:=MIN; pr1:=pr1+1;
END;
writeln;
write ('sortirovka vibora'); writeln;
for i:=1 to n do
WRITE(a[i]:8);        writeln;
write ('prohody=',p1:2,  '  sravneniia=',s1:2, '  perestanovka=',pr1:2);
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 p2:=p2+1;
if b[i]<>0 then begin s2:=s2+1; s:=s+b[i];
while k+1<>s do begin k:=k+1;
a[k]:=i; pr2:=pr2+1; end;end; end;
writeln;
write ('adresnaia sortirovka'); writeln;
for i:=1 to n do
WRITE(a[i]:8);
writeln;
write ('prohody=',p2:2,  '  sravneniia=',s2:2, '  perestanovka=',pr2:2);
END;

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

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

адресная выиграла?
она у вас упорядочивает уже упорядоченный массив!

[Igomax]

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

адресная выиграла?
она у вас упорядочивает уже упорядоченный массив!

Вроде нет!

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

vibor(a);
adress(a);

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

[Igomax]

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


var b: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 p1:=p1+1;
MIN:=A[i]; IMIN:=I;
FOR J:=I TO N DO begin s1:=s1+1;
IF MIN>A[J] THEN BEGIN MIN:=A[J];
IMIN:=J;
END;    end;
A[IMIN]:=A[i];
A[i]:=MIN; pr1:=pr1+1;
END;
writeln;
write ('sortirovka vibora'); writeln;
for i:=1 to n do
WRITE(a[i]:8);        writeln;
write ('prohody=',p1:2,  '  sravneniia=',s1:2, '  perestanovka=',pr1:2);
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 p2:=p2+1;
if b[i]<>0 then begin s2:=s2+1; s:=s+b[i];
while k+1<>s do begin k:=k+1;
a[k]:=i; pr2:=pr2+1; end;end; end;
writeln;
write ('adresnaia sortirovka'); writeln;
for i:=1 to n do
WRITE(a[i]:8);
writeln;
write ('prohody=',p2:2,  '  sravneniia=',s2:2, '  perestanovka=',pr2:2);
END;

BEGIN clrscr;
RANDOMIZE;  writeln;
FOR I:=1 TO N DO BEGIN b[i]:=RANDOM(50);
WRITE (b[i]:8); END; writeln;
vibor(b);
adress(b);

Вот так?

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

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

вот так исправьте основную программу и обьявите массив b такой же как массив а

[Igomax]

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

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

вот так исправьте основную программу и обьявите массив b такой же как массив а

От этого в любом случаи счётчики не начнут правильно считать