Дан файл F, компоненты которого являются вещественными числами. Найти разницу первого и последнего компонента файла F — Pascal(Паскаль)

uses CRT;
const FileName = 'Test.dat'; {имя файла}
                  n=7; {количество компонент файла}
type Tfile=file of real; {тип файла}
var   F:Tfile;
k,l,t,j:real;
 
procedure CreateFile(var F1:TFile; n1:integer); {процедура создания файла}
var i:integer;
   k1:real;
begin
  ReWrite(F1); {открываем файл на запись}
  writeln('vvedite');
  for i:=1 to n1 do
  begin
    readln(k1);
    Write(F1,k1); {записываем в файл}
  end;
  Close(F1);
end;
 
begin 
  ClrScr;
  Assign(F,FileName); {связываем файл F с именем}
  CreateFile(F,n);
   Reset(F); {открываем файл F для чтения}
  Read(F,k); {читаем первую компоненту}
  l:=k;
  Seek(F,FileSize(F)); {переходим к последней компоненте}
  Read(F,k);
  t:=k;
  Close(F); {закрываем файл}
  j:=l-t;
  writeln('j=',j);
  readln;
end.