Файл f заполнить 400 случайными действительными числами, найти разницу первой и последней компоненты файла - Pascal

program pr;
 
var
  f: text;
  i: integer;
  r: real;
  a: array [1..400]of real;
 
begin
  assign(f, 'c:\fil.txt');
  rewrite(f);
  for i := 1 to 400 do
  begin
    a[i] := random(21);
    write(a[i]:3);
    write(f, ' ', a[i]);
  end;
  for i := 1 to 400 do
  begin
    r := a[1] - a[400];
  end;
  writeln;
  write('Разница между 1 и последней компонентой: ', r);
  write(f, 'Разница между 1 и последней компонентой: ', r);
  close(f);
end.