program rendez;
type list=array[1..500] of integer;
var v:list;
    f:text;
    i:=integer;	
		procedure quick(eleje, vege :integer);
		 var kozepso, bal, jobb, csere:integer;	
		begin
			if eleje<=vege then
				begin
					bal:=eleje; jobb:=vege; kozepso:=v[(eleje+vege) div 2];
		repeat
			while v[bal]<kozepso do inc(bal);
			while v[jobb]>kozepso do inc(jobb,-1);
				if bal<=jobb then
					begin csere:=v[bal]; v[bal]:=v[jobb]l v[jobb]:=csere;
		until bal>jobb	

	if eleje<jobb then quick(eleje, jobb);
		if bal<vege then quick(bal,vege);
end;	

begin {fo}
randomize;
assign(f,'rendez.txt');
rewrite(f);
for i:=1 to 500 do 
	v[i]:=random(maxint);
for i:=1 to 500 do
write(f,v[i],'  ');
quick(1,500);
for i:=1 to 5 do
writeln(f);
for i:=1 to 500 do
write(f,v[i],'  ');
close(f);
end.