Could you please help me with this problem? I got a Crash.

{$N+,E-}

var
 i:Integer;
 cur:Extended;
 Numbers:array [1..10800] of real;
begin
 i:=0;
 While not seekeof do begin
  Inc(i);
  Read(Cur);
  Numbers[i]:=Sqrt(cur)
 end;

 for i:=i downto 1 do WriteLn(Numbers[i]:1:4)
end.