Выкинуть все четные элементы. Отсортировать оставшиеся элементы по возрастанию

uses crt;
const nmax=100;
var a:array [1..nmax]of integer;
    n,i,j,x,buf:integer;
Begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
{удаление четных}
i:=1;
while i<=n do
if a[i] mod 2=0 then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
 end
else i:=i+1;
if n=0 then write('Все элементы удалены')
else
 begin
  writeln('Удаление четных элементов:');
  for i:=1 to n do
  write(a[i]:4);
  writeln;
  if n=1 then write('Остался 1 элемент, сортировка не нужна')
  else
   begin
    for i:=1 to n-1 do
     begin
      x:=i;
      for j:=i+1 to n do
      if a[j]<a[x] then x:=j;
      buf:=a[i];
      a[i]:=a[x];
      a[x]:=buf;
     end;
    writeln('Упорядоченный массив: ');
    for i:=1 to n do
    write(a[i]:4);
   end
 end;
readln
end.