Làm giúp em ặ :((. Em cảm ơn

var j,max,i,n,m:longint;
    a:array[1..32000]of longint;
function cp(n:longint):boolean;
begin
     if sqrt(n)=trunc(sqrt(n)) then cp:=(true);
     cp:=(false);
end;
begin
      assign(input,'dayso.inp');reset(input);
      assign(output,'dayso.out');rewrite(output);
        read(n);
         for i:=1 to n do
        read(a[i]);
      max:=a[1];
      for i:=1 to n-1 do
      for j:=i+1 to n do
      if a[i]>a[j]  then
       begin
           m:=a[i];
           a[i]:=a[j];
           a[j]:=m;
       end;
       for i:=1 to n do
       write(a[i],' ');
       writeln;
       for i:=1 to n do
       if cp(a[i])  then write(i,' ');
       writeln;
       for i:=1 to n do
        if a[i]<0 then
        if (max<a[i])  then max:=a[i];
       write(max);


end.