Одномерный массив

[Тырин Артем]

Даны натуральные числа n, a1......an где n<=3000. Отсортировать последовательность a1.....an в порядке возрастания, найти элементы ak последовательности, являющимся квадратами четных чисел, и определить их количество.
Помогите пожалуйста
Сортировать надо методом пузырька
Допишите пожалуйста
var
A:array[1..3000] of integer;
N,i,k,tmp:integer;
begin
Repeat
write('N=');
readln(n);
if (n<=0) or (n>3000) then writeln('Исходные данные неверны');
until(n>0) and (n<=3000);
write('Исходный массив:');

For i:=1 to n do
begin
A[i]:= random(100);
write(A[i]);
if i<n then write(',')
else write (',');
end;

For i:=2 to n do
For j:=n downto i do
If A[j]>A[j-1] then
begin
tmp:=A[j-1];
A[j-1]:=A[j];
A[j]:=tmp;
end;

writeln('Порядок возрастания');
for i:=1 to n do begin
write(A[i]);
if i<n then write (',')
else write(',');
end;
End.

[Dvoishnik]

сортировку пузырьком можно взять тут

а сортировку в порядке возрастания слабо сделать? (в готовом коде поменять знак не сложно)

for i:=1 to n do
 if (Frac (sqrt(a[i])) = 0) then
  if (trunc(sqrt(a[i])) mod 2) = 0 then
   begin
       inc(sum);
       write(A[i],' ');
   end;