Найти сумму квадратов компонент файла f. Записать эту сумму в конец файла

Var f:file of real;
    i,n,j:byte;
    t,s:real;
    A:array[1..100] of real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('Введите размернось файла: ');readln(n);
    writeln('Исходный файл');
    s:=0;
    For i:=1 to n do
    Begin
      t:=random*10-5;
      write(t:0:2,' ');
      write(f,t);
      s:=s+sqr(t);
    End;
    writeln;
    writeln('Сумма квадратов = ',s:0:2);
    write(f,s);
    Reset(f);  
    For i:=1 to FileSize(f) do
    Begin
      read(f,t);
      A[i]:=t;
    End;
    For i:=FileSize(f) downto 2 do
     For j:=2 to i do
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('Преобразованный файл');
    Rewrite(f);
    For i:=1 to n+1 do
    Begin
      write(A[i]:0:2,' ');
      write(f,A[i]);
    End;
    readln;
End.

Var f:file of real;
    r: text;
    i,n,j:byte;
    t,s:real;
    A:array[1..100] of real;
Begin
    Assign(f,'D:\in.dat');Rewrite(f);
    assign(r,'D:\out.txt'); rewrite(r);
    write('Введите размернось файла: ');readln(n);
    writeln('Исходный файл');
    s:=0;
    For i:=1 to n do
    Begin
      t:=random*10-5;
      write(t:0:2,' ');
      write(f,t);
      s:=s+sqr(t);
    End;
    writeln;
    writeln('Сумма квадратов = ',s:0:2);
    write(f,s);
    Reset(f);
    For i:=1 to FileSize(f) do
    Begin
      read(f,t);
      A[i]:=t;
    End;
    For i:=FileSize(f) downto 2 do
     For j:=2 to i do
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    close(f);
    erase(f);
    writeln('Преобразованный файл');
    For i:=1 to n+1 do
    Begin
      write(A[i]:0:2,' ');
      write(r,a[i]:8:2);
    End;
    readln;
close(r);
End.