Сортировка данных в файле.

[Animex]

Нужно отсортировать данные в файле(положительные числа поставить в начало, отрицательные в конец). Для решения данной задачи решил ввести динамический массив:

type
  TIFile = file of integer;
  procedure create(fname:string);
  var
  f:file of integer;
  a,i,n:integer;
  begin
    write('Vvedite kol-vo chisel');
    readln(n);
    assign(f,fname);
    rewrite(f);
    for i:=1 to n do
    begin
     writeln('Vvedite',' ',i,'chislo',' ');
     readln(a);
     write(f,a);

    end;
      close(f);
  end;

  function GetInf(var foi:TIFile; pos:longint):integer;
  var
  num:integer;
  begin
  seek(foi,pos);
  read(foi,num);
  GetInf:=num;
  end;

procedure sort(fname:string);
var
arr:array of integer;
f:file of integer;
buf,a,n,i,j:integer;
begin
create(fname);
n:=filesize(f);
for i:=0 to n do
arr[i]:=getinf(f,i);


end;

В последней строчке компилятор говорит, что типы не соответствуют друг другу. Не могу понять почему, ведь массив целочисленный и элементы в файле тоже.

[Stilet]

Правильно говорит. Тип TIFile это уже не file of integer, а новый тип.
Меняй стратегию.

[Animex]

А можно, к примеру, взять код получившегося числа и вернуть его в новую переменную уже типа integer?

[Serge_Bliznykov]

Правильно говорит. Тип TIFile это уже не file of integer, а новый тип.
Меняй стратегию.

точно так.

для исправления именно этой ошибки достаточно поменять тип у переменной f:

procedure sort(fname:string);
var
arr:array of integer;
f:TIFile;
...

Но! Дальше будут ошибки:
1) n:=filesize(f); - переменной f Вы ничего не присвоили. Какой размер Вы оттуда надеятесь получить?

2) попытка чтения из закрытого файла (ведь в процедуре Create файл создаётся и закрывается.

может, Вам и правда изменить алгоритм? (если что, можно подсказать