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

VAR
A:ARRAY [1..2000] of integer;
t,i,j,n,k: integer;
Begin
Repeat
writeln ('Введите N :');
Readln(N);
IF (N<=0) or (N>2000) then
writeln('Исходные данные неверны ');
Until (N>0) and (N<=2000);
Randomize;
writeln('Исходный массив ');
FOR i:= 1 to N do begin
A[i]:=Random (2001);
write(A[i]:6);
end;
FOR j:=N downto i do
IF A[j]<a[j+i] then begin
t:=A[j];
A[j]:=A[j-i];
A[j-i]:=t;
end;
K:=0;
i:=1;
while i<=n do begin
IF A[i] mod 2=0 then
K:=k+1;
i:=i+2;
end;
end.

var
  A: ARRAY [1..2000] of integer;
  t, i, j, n, k: integer;
 
begin
  repeat
    writeln('Введите N:');
    Readln(N);
    if (N <= 0) or (N > 2000) then
      writeln('Исходные данные неверны ');
  until (N > 0) and (N <= 2000);
  Randomize;
  writeln('Исходный массив ');
  for i := 1 to N do 
  begin
    A[i] := Random(2001);
    write(A[i]:6);
  end;
  for i := 2 to n do 
  begin
    j := i;
    while a[j] < a[j - 1] do 
    begin
      t := a[j];
      a[j] := a[j - 1];
      a[j - 1] := t;
      dec(j);
      if j = 1 then
        break;
    end;
  end;
  writeln;
  writeln('Отсортированный массив ');
  for i := 1 to N do 
    write(A[i]:6);
  writeln;
  K := 0;
  i := 1;
  writeln('Элементы A, являющиеся нечетными:');
  while i <= n do 
  begin
    if A[i] mod 2 <> 0 then
    begin
      K := k + 1;
      write(a[i]:6);
    end;  
    i := i + 1;
  end;
  writeln;  
  writeln('Количество: ', k);
end.