program test; uses trideni; var Inp,Outp:text; A,B : tab; begin assign(Inp,'Vstup.dat'); reset(Inp); assign(Outp,'Vyst.dat'); rewrite(Outp); precti(Inp,B); A:=B; writeln(Outp,'prime_zatridovani'); prime_zatridovani(A); vypis(Outp, A); A:=B; writeln(Outp,'binarni_zatridovani'); binarni_zatridovani(A); vypis(Outp, A); A:=B; writeln(Outp,'primy_vyber'); primy_vyber(A); vypis(Outp, A); A:=B; writeln(Outp,'shake_sort'); shake_sort(A); vypis(Outp, A); A:=B; writeln(Outp,'heap_sort'); heap_sort(A); vypis(Outp, A); A:=B; writeln(Outp,'mergesort'); mergesort(A); vypis(Outp, A); close(Outp); end.