задача с файлами, разность первого и последнего компонентов файла Опции

[Светлана]

Здравствуйте! Помогите пож-та доделать задачку.... "Записать в файл последовательного доступа N действительных чисел. Найти разность разность первой и последней компонент файла".

Вот вариант...

 
Program FAIL14;
const n=20;
var f:text;
a:array[1..n] of real;
i:integer;
 begin
  assign(f,'a:\numbers.txt');
  rewrite(f);
   begin
   writeln(n);
   for i:=1 to n do begin
    writeln('vvedite elementy:');
    readln(a[i]);
     Procedure Raznost(a,b:real;var K:real);
     begin
     for i:=1 to n do
     K:=a[1]-a[i];
     end;
     writeln(K[i]);
     readln(K[i]);
     end.

помогите пож-та....