Delphi дан файл f,компоненты которого являются действительными числами.Найти разность первой и последней компонент файла Скиньте код пожалуста(работаю на старой версии)

Если файл типизированный, то один из вариантов решения задачи такой:
var f: file of real; a,b,r:real;
begin
AssignFile(f,myFile.dat);
Reset(f);
Read(f,a);
while not eof(f) do read(f,b);
r:=a-b;
//здесь нужно вывести r
Close(f);
end;
Вывод r зависит от того, какое программу Вы делаете - консольное или Windows-приложение.