Разобраться в сортировке

program shablon1;
uses crt;
type ms=array [1..25] of integer;
var i,j,n,b,t,m:integer; a:ms;
function fact(x:integer):longint;
begin
if (x=0) or (x=1) then fact:=1
else fact:=x*fact(x-2);
end;
 
begin
randomize;clrscr;
while t<>5 do
begin
writeln;
writeln('1-гЇ®а冷зЁвм ¬*ббЁў (ў**з*«Ґ зсв*лҐ н«Ґ¬-вл');
writeln('2-**©вЁ б㬬㠤ўге д*Єв®аЁ*«®ў');
writeln('3-⮦Ґ б*¬®Ґ, зв® Ё ў® 2-¬ Їг*ЄвҐ');
writeln('4-⮦Ґ б*¬®Ґ, зв® Ё ў® 2-¬ Ё 3-¬ Їг*Єв*е');
writeln('5-ўл室');
readln(t);
case t of
1: begin
 
 
write('n='); read(n);
for i:=1 to n do
a[i]:=random (100) - 50;
writeln;
for i:=1 to n do
write(a[i],' ');
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[i] mod 2<>0
then begin b:=a[i]; a[i]:=a[i+1]; a[i+1]:=b; end;
writeln;
for i:=1 to n do
write(a[i],' ');
end;
2:begin
writeln('‚ў®¤Ёвм *г¦*® зсв*®Ґ Ё *Ґзсв*®Ґ зЁб«*, ў Їа®вЁў*®¬ б«гз*Ґ бзЁв*вм *Ґ Ўг¤Ґв');
writeln('ўўҐ¤ЁвҐ 1-e зЁб«®'); readln(m);
writeln('ўўҐ¤ЁвҐ 2-e зЁб«®'); readln(n);
if ((m mod 2=0)and(n mod 2<>0)) or((m mod 2<>0) and(n mod 2=0)) then  begin
writeln('¤ў®©*.д*Єв®аЁ*« 1-Ј® зЁб«* =',fact(m));
writeln('¤ў®©*.д*Єв®аЁ*« 2-Ј® зЁб«*=',fact(n));
writeln(',* Ёе б㬬* =',fact(m)+fact(n));
end
else writeln('‚ўҐ¤с**лҐ зЁб«* *Ґ Ї®¤е®¤пв гб«®ўЁо');
 
end;
3:;
4:;
5:exit;
end; end;
readkey;
end.

for j:=1 to n-1