Работа с файлами (паскаль)

[patisson74]

Дан файл F, компоненты которого являются вещественными числами. Найти разницу первого и последнего компонента файла F.
Вот что, не без помощи одного хорошего человека, у нас получилось:

program files_;
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.

но что-то не так, программка не хочет работать......

[CodeExpert]

program files_;
uses CRT;
const n=7; {количество компонент файла}
type Tfile=file of real; {тип файла}
var   F:Tfile;
      first,second,raz:real;

procedure CreateFile(var F:TFile; n:integer); {процедура создания файла}
var i:integer;//счетчик
    k1:real;//число компоненты
begin
Assign(F,'Test.txt'); {связываем файл F с именем}
ReWrite(F); {открываем файл на запись}
writeln('Введите компоненты файла!');
for i:=1 to n do begin
 readln(k1);Write(F,k1); {записываем в файл}end;
Close(F);//закрываем файл
end;
{основное тело программы}
begin
ClrScr;
CreateFile(F,n);
Reset(F); {открываем файл F для чтения}
Read(F,first); {читаем первый компонент}
Seek(F,FileSize(F)-1); {переходим к последнему компоненту}
Read(F,second);
raz:=first-second;
writeln('Разница =',raz);
readln;
end.

У вас были ошибки в том, что:

Assign(F,FileName); {связываем файл F с именем}
Close(F); {закрываем файл}

вне процедуры, но работало бы все равно...
+
Seek(F,FileSize(F)); {переходим к последнему компоненту}
нужно было Seek(F,FileSize(F)-1); {переходим к последнему компоненту}
то есть получается мы переходили к следующему за последним элементом, вот поэтому и ошибка была...
Удачи