Вывести на экран элементы массивы, которые не являются точными квадратами, и их количество

const
  N=10;
  EPSILON=0.000001;
var
  A:array[1..N] of real;
  i:integer;
  cnt:integer;
begin
  { как-то заполнили массив }
  cnt:=0;
  for i:=1 to N do
  begin
    if (sqrt(A[i])-trunc(sqrt(A[i])))<EPSILON then
      begin
        writeln(A[i]:6:6);
        inc(cnt);
      end;
  end;
  writeln(cnt);
  readln;
end.

Var Numbers,  {вот этот массив}
  nNumbers : Array[1..100] of LongInt; {а сюда соберем неточные}
  sNumber : Single;
  i, k : Word;
Begin
   For i:=1 to 100 do Numbers[i]:=i*i;  {это будут точные квадраты}
   {Теперь сделаем некоторые элементы неточными}
   Numbers[20]:=Numbers[20]*3;
   Numbers[50]:=Numbers[50]*3;
   Numbers[65]:=Numbers[65]*3;
   Numbers[80]:=Numbers[80]*3;
   k:=0;
   For i:=1 to 100 do
     begin
          sNumber:= Numbers[i];
          sNumber:= Sqrt(sNumber);
          If Frac(sNumber)<>0 then  {вот он неточный квадрат}
            Begin
               inc(k); {это число неточных квадратов}
               nNumbers[k]:=Numbers[i];
            end;
     end;
   For i:=1 to k do
      WriteLn(nNumbers[i]);  {вывод на чистую воду}
End.