дан файл f, составляющие которого являются действительными числами. найти последнюю компоненту

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var f:file of real;
  // создаем файл
  Rewrite(f,'MyFileOfReals.bin');
  var a:=SeqRandom(10,1,30).Select(t-gt;t/10).ToArray;
  a.Println;
  for var i:=0 to a.Length-1 do Write(f,a[i]);
  f.Close;
  // файл сотворен, дальше собственно задание
  Reset(f,'MyFileOfReals.bin');
  f.Seek(f.FileSize-1);
  var p:=f.Read;
  p.Println;
  f.Close
end.