Чтение из файла

[unbanned]

вот процедура заполнения массива из файла

type
  TDetails = record
    code: string[10];
    shop_code: string[11];
    area_code: string[11];
    prod_count: integer;
    acept_count: integer;
  end;

type
  Arr_Det = array of TDetails;

procedure fill(var mas: Arr_Det; path: string);
var
  f: text;
  count: integer;
begin
  assign(f, path);
  reset(f);
  while not eof(f) do
  begin
    count := length(mas) + 1;
    setlength(mas, count);
    with mas[count - 1] do
      readln(f, code, shop_code, area_code, prod_count, acept_count);    
  end;
  close(f);
end;

на pascalABC. net компилируется, онлайн компилятор тоже без проблем... а вот Turbo Pascal отказывается понимать
если length(mas) можно заменить на high(mas), то для setlength() и array of <тип данных> замены не нашел

[Ivanhoe]

на правах совета. Автор не отвечает за его валидность

массив должен иметь строго определённое число элементов
type
Arr_Det = array of TDetails; {не годится}

меняем на
Arr_Det = array[1..100] of TDetails; {массив на 100 записей}
следующая ошибка
count := length(mas) + 1; {length(mas) - как я понял количество элементарных
записей в массиве} надо заменить на присваивание
count := число элементов в mas +1 {попробуй 101}

раз в твоём pascalABC. net размер массива TDetails не устанавливается, то надо думать что setlength(mas, count); устанавливает длину
массива mas и на каждом этапе чтения файла увеличивает это значение на 1.
Далее осталось поменять

[Ivanhoe]

на правах совета. Автор не отвечает за его валидность

массив должен иметь строго определённое число элементов
type
Arr_Det = array of TDetails; {не годится}

меняем на
Arr_Det = array[1..100] of TDetails; {массив на 100 записей}
следующая ошибка
count := length(mas) + 1; {length(mas) - как я понял количество элементарных
записей в массиве} надо заменить на присваивание
count := число элементов в mas +1 {попробуй 101}

раз в твоём pascalABC. net размер массива TDetails не устанавливается, то надо думать что setlength(mas, count); устанавливает длину
массива mas и на каждом этапе чтения файла увеличивает это значение на 1.
Далее осталось поменять