Please tell me, why do i have the wrong answer in next code?



program Project2;
var
  fi:text;
  fo:text;
  i,j:integer;
  a:array[1..1000000] of int64;

begin
 i:=0;
 while not EOF do
  begin
  inc(i);
  read(a[i]);
  end;

 for j:=i downto 1 do writeln(sqrt(StrToFloat(IntToStr(a[j]))):0:4);

end.

use seekeof for numbers
StrToFloat(IntToStr(a[j])) is not needed
use extended