program test; uses nquick; 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,'nquick1'); nquick1(A); vypis(Outp, A); close(Outp); end.