Как переписать компоненты файла в массив?

Uses crt;
Var
  f: File of Integer;
  x: Array [1..1000] of Integer;
  i,n,min,imin,a,t,otr,s: Integer;
BEGIN
Repeat
 Write('Введите кол-во компонент: ');
 Readln(n);
until n>0;
Assign(f,'1.dat');
Rewrite(f);
min:=Maxint;
Writeln('Введите элементы в файл: ');
For i:=1 to n do
begin
  Readln(a);
  Write(f,a);
  If a<min Then
  begin
    min:=a;
    imin:=i;
  end;
end;
If imin=n Then
begin
  Writeln('Невозможно переписать элементы файла в массив, так как минимальный элемент находится в конце файла');
  Close(f)
end
Else
begin
  Reset(f);
  Seek(f,imin);
  While not Eof(f) do
  begin
    Read(f,a);
    Inc(t);
    x[t]:=a;
  end;
  Writeln('Содержимое файла до изменений: ');
  Seek(f,0);
  While not Eof(f) do
  begin
    Read(f,a);
    Write(a,' ');
  end;
  Writeln;
  Writeln('Содержимое массива: ');
  For i:=1 to t do
  begin
    Write(x[i],' ');
    If x[i]<0 Then
    begin
      Inc(otr);
      Inc(s,x[i]);
    end;
  end;
  If otr=0 Then
  begin
    Writeln;
    Writeln('Отрицательных значений в массиве нет')
  end
  Else
  begin
    Writeln;
    Writeln('Сумма отрицательных значений = ',s);
    Seek(f,0);
    Write(f,s);
    Writeln('Файл после изменений: ');
    Seek(f,0);
    While not Eof(f) do
    begin
      Read(f,a);
      Write(a,' ');
    end;
  end;
  Close(f);
end;
END.